17|4| SEP QS#f75 lD««QlOn 
J6B |*8tTjBRU333323i32,7 , TERMINAL JOB 

LIMIT (C8^#16)j(TImE*10^ 
ASSIGN M|CN (FlLE*KEYN#:oOOCI) 
ASSIGN M|SI,.(FlLEjKEVN # Sn00T8!) 
METASYM S!*C!jL8jCN 

• SS Ri#Ri2#R3#R4#«5#R6#«7#R8#R9jRlo#Rli#Ri?'Ri,3iRH'Rl5 

• SS SR1#3R2*SR3j8FH#Di#D3«D3j0*«$ 

• END 



AcNCFU 










91tl/REF 


22*0*67/0* 








ACTBIT 










9jft46/SREF 


27o4/tI 


2785/11 






AF 

230«59/SET 


2aO«59/SET 


230t63/ T E^T 


230t6S/B 




AUBIT 










91tU7/SREF 


2781/lW 


2783/UW 






AMNTSC* 










1542/BANZ 

ANSFLQS 

9ita/REF 


1551*BG 








1518/LC 


154*/IB 


1548/LC 


i58if«t6/LB 


l;30l/LB 


I&t>/§1% 


22 6 t6 /STR 






AN8PR8C 










<f5*SET 










ANSPRT 










9|t3/REF 


1516/HTW 


1552/MTW 


X584fti^/MTW 




ansreei* 










1549/BCS 


1554«EQU 








ANSV8L 










l!546/C! 










ASCV8L1 










192S/CW 


20^^«DATA 








ASPIN 










91t4/REF 


1664'BaL 








AVR 










230.!L71/BNEZ 

avrbzeRR 

188<*'BIZ 


18<*4»*E S 








1889/BANZ 


1891/BNEZ 


1993»FUL 




AVRDCT 










9U5/REF 

AVRFLGS 

91.6/REF 


23ftti70/XW 








1899/STB 


190g/LC 


1929/LB 


1931/STB 


avrfnmt 










9U7/REF 


224/MTB 


22g/MTB 


1787 / AI 


1788/AI 


AVRID 

9U8/REF 


I5O7/LH 


1677/^M 


1688/CM 


I7OI/STM 



158^ti8/STB 



^Sg/STB 



1779'STM 



1799/STH 



22i;2il/ M TH 


2230/STW 












AVRJ0ERR 














1983. BAt 


2019/BQE 












AVRIBERR 














195°/BANZ 


1953/BNE 


1988-BAl. 










AVRN0U 














9U9/R&F 


UU'LH 


1637/LH 


222 6 /LH 


1667/MTM 


U72/WTH 


U9^/UH 


1768/WTH 


ig^O/LH 


222l/M T M 


222 9 / ST H 






AVRS 














1583/BAL 


16^6/BNiZ 


1770/BOR 


1772/BEZ 


1810-LI 


1983/BAL 


1988/BAL 


1993/BAL 


8033/BAU 


2039/BAL 










AVRTBL 














91tlO/REF 


igos/LD 


1506/LO 


1521/LD 


1643/CLM 


17B5^CLM 


1765/LD 


177S/ID 


1778/STO 


1796/STD 


1887/LD 


1966/LD 


22O9/L0 


2?*0»15/STD 


AVRTBINE 














91.12/REF 


1639/LI 


1754/LI 


209B/L! 


2197/AI 


2209/LD 


2209/LD 


2210/AI 


2215/AI 


S2 6 0,l4/A! 


2260,15/STD 


2260,1S/STD 


2260,17/AI 




avrtblsiz 














9l»U/REF 


l*9l/C! 


1641/CI 


1673/CI 


1*51/11 


1753/AI 


1754/LI 


1395/CI 


22U/C! 


2260»*/CI 










AVR1 














If386/8NEZ 
BA 

23o»21/GEN 


1892»EQM 












2^0»37/EqW 


230»37/EQU 


822/FQU 


822/fQU 


826/EQU 


826/EQU 


33Q/EQU 


83 /equ 


1132/LI 


1919/LI 


2012>L! 


2260Ul'MBS 




BAKPLB 














230»45»EQU 

BATAPE 


325/LI 


332/C! 


337/AI 








1508/AI 


1659>^LW 


1750/LI 


1755^CLM 


17S5'CIM 


176#/AI 


l77 2 tl/Al 


iSS^A! 


2096/U 


SI97/AI 


2231/At 


2235/Al 


2? 6 0tl7/Al 


2260t55/AI 














BAUNIT1 














;?2<**MTB 


2p6Qi9/ANLZ 












BAUNIT2 














225* M TB 














BCSTGFC 














91 t 148/REF 


2523/LI 













bqRcfu 

SltlVREF 
BLANK 

9i»l5/REF 

BLP 

223»TEXT 

BT 3 lT60 

91*16/REF 

216.15/EqU 

CfHSM 

9iti7/REF 

CCERR 

1928/BAZ 

CFUSIZE 

9l«18/REF 
CHK 

1752/BIR 
CHKILBL 

1 9 26/BNE 
CHKBLP 

1539/BE 

CHKGACN 

694/BE 

CHKQNAME 

692-EQU 

CHKID 

I'567/BIR 

CHKJD1 

1I391/BIR 

CHKSR 

1528/BAZ 

CHKW1 

153P1/BE 

CHKO 

1749/BOZ 

CHK1 

1674/BQE 



22*Qt58/L,I 

317/LW 

1338/CW 

*16,9/EQU 
2i6«16/EqU 

12**»13/STW 
g028»EQU 

22*0. 66/A! 
175S»CL" 
1933« RE § 

15*<M13»EQU 

699«EQU 

696/BD* 

1568/UI 

1597-RES 

1531*CI 
1R31«3*8AU 

1756/BE 
1769/BEZ 



2l6 f l0/E0U 
X584tl7/8R 



1758/BDR 



1585« R ES 

1584il9/B 

1760-RES 
l773»RES 



216.ll/EQU 



216,12/EGU 



216.13/EQU 



Pl6il*/EQU 



1772i2/B 



CKF R EE 

2108/BAl 
CKFIO 

2216/B 
CKF5 

2213ti«MTM 
CKF6 

22l 5 * A * 

CKF7 

2212/BGE 

CKF8 

2220/BLZ 
CKSERIAL 

1616.CW 
CKZER8 

2260»1B»STD 

CKZERai 

2214/BEZ 

CKZER82 

226Q»12/B 
CKZER83 

226q»5/BGE 

C8C 

9l»19/SREF 

C9CDSABL 

9li20/SREF 

C8CENABL 

91»21/SREF 

CQCMgSS 

9lt22/SREF 

C8C8TV 

9lt23/SREF 
C8CSENDX 

91.24/SREF 

CQCTER^ 

9l*2S/SREF 

C8NTUGSRCH 



2198/BAt 
2237»EQU 

2 21 8/BANZ 

2217«CW 

2224«A! 



2222/BEZ 

22*0»13*lNT 
22A0»54«PU«M 
918^1 



2203#2»EQU 



2223'R 



2236/B 

8260»7o/B 

987*29/1! 



3225/BEZ 



222*>BNE 



2260«4*C! 



987t92/Ll 



987tl03/STB 987»108/STB 987tU5'STB 



&95»EQU 


701/BNE 


CP&S 




9i»26/SRIF 




CTRIG 




9l»27/REF 


365-^BAl* 


CVSYSID 




91^28/REF 


6*5'BAU 


DATE 




9f29/REF 


1260/STH 


DCBIT 




91.U9/SREF 


278^AW 


DCTS1Z 




91.30/REF 
OCTX 

11570/ANLZ 




1633'ani»z 


DCTl 




9lt31/REF 


22^0f30/LH 


0CT16 




9ii32/REF 


2325/LD 


DCT 2 * 




91tl50/REF 


2658/LC 


0CT3 




9l i33/REF 


2656/LC 


DCTf 




9^3^/REF 


1571/LB 


2^61/LB 


2844 t 42/LB 


DCV20 




930»LB 


938/Bl R 


DCy30 




934/BEZ 


938«B!W 


0EC9NV 




9lt35/REF 


S^Oa/BAt 


defaultgacn 




682/BEZ 


689»EQU 


DEVCK 




91.36/REF 


2191/BAt* 


DEVICED0WN 





973/BAl, 

1.265/STS 



1659*IW 



2*87/LD 



17^3/tB 



2347/BAL 



1599/BAL 

1269/STW 



1693/ANtZ 



1762/CB 



26<tO/BAl 



2755/BAL 



174»8/ANL2 



1976/LB 



2816 / BAL 2R44«<*8/BAL 



I8|l/ANLZ 



t 975/ANL 



2Q99/LB 



?l93/UB 



283*/BAL 284M36'&Al 



2016/B 


2035«EqU 




DID 






9l»37/REF 


978/STW 




DLTP8D 






717»1H/LD 


7l7t21*IPSD 




Des«c H 






1923/B 


1956-STW 




DBUBLEZERe 






91t 3 8/REF 


773 /l -D 




DTVALCK 






1306/BAL 


1311/BAt 


1336-EOU 


EUBRT 






9 1 »3*/REF 


620/Ll 


8*9/1 t 


ElCBK 






9l »4Q/REF 


6ft7tl*/L! 




EJERR 






9l»U/REF 


636/Ll 




EARR6Q 






P006/LD 


202^*STW 




ECH9CR2 






9X**2/§RE? 






ENTINT 






230*91/K!TV 


*Q7t2«EQU 




ERR18G 






9^3/REF 


25n5»39/BAL 




ersend 






230*86/KITV 


2R05t2»EQ u 




FCMC 






91*44/REF 


20<f3/3E N 




FKIC 






P367/CB 


2456«TE X T 




GDTKlVAL 






^238/BAt 


12#2^BAt 


1259/BAL 


GDTKlVt 






i3l**EQU 


1327/B 




GDTKlvS 






1308/BEZ 


X322*EQW 





J263/BAL 



12 68/BAL 



12«8*EQU 



GDTKIV3 








13Q2/BCS 


1329*EQU 






QDTKIV4 








1313/BNCZ 


1331-EOW 


1339/BL 


13^1/BQ 


GETAVR 








1S13/BDR 


IglS^BNl 


1580»EOU 




GETAVR1 








iSll/B 


1523«RCS 


1968/B 




GETFLGl 








1<J 3/BAL 


1927/BAL 


l97i-E0U 




getuses* 








9l*45/pEF 


666/BaL 


976/BAL 


2819/BAU 


GJ»B F C 








828/DATA 


830«E0U 






GJSBFUlt 








»13/U 


8 g 7«EQU 


8 30 /EQU 




QJ6BTXT 








230i89*KITV 








GJ§BUC 








82Q/DATA 


822»EQU 






GJ&BUSY 








806/L1 


8l9«EQU 


82J?^E0U 




GJaBWAKE 








810/LI 


823*EQ y 


82&/EOU 




GjaBwc 








824/OATA 

GKJFLD 

8g/DEF 


826«E!Q y 






23ft*lg3' / BAt 


304-EQU 


601./BAI 


79*/BAl 


924/BAk 


971/BAL 


987i 3 3'BAL 


l53*/6Ai 
2753/BAC 


1589/BAu 


2Q64/BA. 


238o/BAi 
28Q7/BAL 


2765/BAL 


2777/BAL 


284<m46/BAI 








GKIFUD1 








;>32»STB 


32S/BD« 






GKJFLD 3 








327/BC6 


331«EQW 






GKJFLD* 









680/BAL 
ll^g/BAL 
263t/BAi 
2814/BAL 



7655/BAL 

lHoS^BAL 
27*1/BA L 
2830/BAL 



776/BAL 
*30l/BAL 
^746/BAi 
8H4M32/BAU 



329/B 

GKIFLD5 

333/BIME 
GMB 

9lt46^REF 

qname 

64*/BE 

Q66DNGT 

91»47/REF 

MEXCK 

91#43/REF 
M8KAL8 

91.49/REF 

!A 

717«21/*PSD 

TSPS 

1^38/BNEZ 
ISpSQ 

1651/BNEZ 
ISpSg 

1643.CI* 

ISPS3 

1643/BL 

ISPS5 

16*0»AI 

JIBASE rt 

9l«50/REF 
1962/H 

JjCCBUF 

9l»5l/«EF 
9M/MJW 
JUtT 

9l»52/REF 
KA 

202»EQU 
KBIANK 

211*EQU 



33MEqU 

336"EQM 
22*0»19/BAL 

671*EQW 
847/STW 

l665^BAt 



2568/&AL 



I660«cw 




1658/B 


l67o»MTM 


l65o»A! 




Ufcv'BNE 


16*9/8? 


196#Aw 


1*19/1! 

2007/STD 


6n?M3'STW 
9*8^T* 


621/STW 


2fS10tl/AI 





1951/LW 
20!0tl/Al 

637/STW 



1950/LW 
201?/ L I 

648/WTW 



1956/stW 

aoi7/t w 

9 2/MTW 



1961/STW 
921/STW 



274/C! 



KBUF 




230*41'E0U 


269/LW 


KCCP 




230»39»EQU 


23ntl82/STW 


1148/SW 


U*6/LW 


KC&MGFC 




9l»151/SRCF 


2Sp8»iO/LI 


KC8MMA 




2l3»EQU 




KCRET 




2i2»EQU 


23n«l72/LI 


KC1 




2o3»EQu 




kdiag 




230»82/KlTV 


957»RES 


KDIAGt 




9*8/BE 


97o»RES 


KE9B 




214'EQU 


265'LI 


KEYERR 




83/DEF 


230t74'KI T V 


660/B 


663/BL 


T56/BCS 


760/BG 


9 t 9/BEZ 


9 2 5^BCS 


97VBCS 


yjy/Q 

U69/Bc s 


1167/bEZ 


1332/B 


1495/BCS 


l53l«3/BE 


^535/BcS 


15$<f .15/BG 


1590/BCS 


1657/ BL EZ 


166I/BNE 


2065/BCS 


2088/B 


2324/BEZ 


23*8/BC$ 


g!522^BEZ 


g5<»6/BNE 


*6*7/B 


2676/BEj 


275*/bc 8 


2766/BC S 


2320/B 


2831/BCS 


g84f4»4f7/BCS 


2844»#9/BCS 



26?/lW 

257^/LW 

2792/1! 



271/CI 



230»184>' B CS 
667/B 
765/BE 
935/B 

987» 3 0/B£Z 

1174/BEf 

1^99/BE 

1547/BE 

1600/BC8 

1682/BE 

2092/BCR 
235 t/ BCR 
p55 t /BEZ 

S725/BAZ 
2787/BANZ 
2835/BCS 
28^4*5^/BAZ 



273/MTW 



987t98/LW 



23CM96/B 
677/BG 
775/BNE 
9%7/BG 

987» 3 ^/BNE 
U76/BG 
1501/8EZ 
i55i/BG 
1613/BAN^ 
1683/bAZ 
2192/BCS 
2362/B 
g5«9/Ll 
*7 2 7/B 

2808/rc S 
2838/B 

2844»S6/8EZ 



344«EQU 

6gA/flG 
777/BCS 
9^8i3/BG 
987|3*/BCS 
1204/bEZ 
lSi?/BQ 
X553/BG 

161S/BNE* 
1690/BANZ 

2195/BCR 

2^33/B 

g63g/BCS 

2813/BNE 
2844#33 / BCS 
2 844»Aq/BNE 



H33 /AW 



642 /B CS 
686/BNE 
784/B 
9*9/8 
987»9 3/ BEZ 

1206/BC S 
lSt9/BCR 
1536/BNE 

l6»8' / BE 
1692/BNE 

2309/B 
2478/BEZ 

f64i^BCS 
7*7/BCS 

28t5/BC» 
2844t37/BCS 



113*A W 



646/BCS 
698/B 

795/BCS 

97g/BCS 

112g/BIF 

1318/b©l 
1530/BEZ 
^64/BG 

i(>3(>/BLZ 

1698/BNE 

2319/BNE 
2^86/BNE 
0643/BCS 

«750/BG 
2817/BC S 
2844»^0/ B 



KEYERRl 

359*EQy 
KEYjNA 

830»l88-CW 

KEYJNBUF 

9i»53/REF 

2*9 S /ST M 
KEYl N Q 

227*TEXT 

KEYINR 

8*/DEF 

7l7t21/»PSD 

980/8 
1211/LI 
2203/8 
2699/8 

KEYIN20 

230'i8j»L! 
KEYN 

3«EQU 
KFFFF 

206»EQU 

KFL 

85/DEF 

1312/MTW 
2748/LW 

230«40*EQU 
KFLUSH 

9l »54/REF 
KFRMCG 

9li55/RE p " 
KFRMGFC 

9l»56/REl ? 
KFO 

20*«EQy 
KF9 



9n7t^6/Bc S 

23n»l9 /BDR 

2*0t2*/DATA 
2575/LB 

764/CD 

83ft«1^4/BC 

7gg/8C« 

9a7tS4/B 

1245/B 

2285/B 

27oo'B 

2496/8 

*/def 

12*3^1-1 

2^0»^2»EQU 
i555/MT w 

233/STW 
284<M45/AI 
2s0t88/KlTV 

2435'M 
1324/ L I 



2105/B 



230tl73/CB 



367»EQU 
804/BCR 
987t58/B 

1270/B 
2359/B 
2728/B 



1264'LI 

338/STW 

1563/MyW 



276/LW 



2199/8 



987»100/LB 



59 a /B 

glS/BCR 

987ti09/B 

1702/g 

2455/8 

2732/8 



67g/LW 
2066/HTW 



323/STW 



2454/8 



1132/L1 



6q7/B 

8t8/B 

987tlli/B 

1800/BO R 
2505t41/LI 
2790/B 



681/LW 
2298/LW 



339/STW 



25A9/BE2 



1136/LB 



67o'B 
889/8 
11S2/8 
18o7/b 
2S98/B 
28fc6/B 



7g8/LW 
23g4/LW 



10 
2595/^.1 

U48/STB 



7j7/B 

955/B 

1189/B 

1812/LI 
2686/B 



1307/MTW 
2745/UW 



1338/c! 



205-C0U 

KUB9RT 

230»75/KITV 

kjansm 

230»76/KITV 

KIANS8 

230,100/KITV 

kianss 

230»77/K!TV 

KIDATE 

230»78/KJTV 

KIDEL 

9l»57/REF 

KIDELT 

230»81/K!TV 

KIOIS 

9lt58/REF 

KIDL 

23o»2l'GEN 

KIERROR 

230.84/KITV 

KIERRQR1 

607tiS/8 

KIER12 

651-CH 
KIERi3 

653«8DR 

KlERiB 

6*9/BNEZ 
KIFD&WN 

23CM1S/KITV 

KIFIUSH 

230»87/K!TV 

«IF1 

2844 •39/B 
KI9B 

•303/B 



1340/Cl 
23n»ii3^I T V 
H09*EQU 

23ft»103^KI T V 
1395*EQV 

2sO«79>' l <I Tv 
2*Q*80/KlTV 

7l7«2«EQ^> 
230»83/KlTy 

23Q»29*EQ U 
2^0t85/KlTV 

622/B 
653/BDR 

6§2'BE 
833«EQW 

2*44«2*E QU 
284*»*1«LB 
922«RE8 
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6io«»EQU 



1423«E0U 



1247-EQU 



230 f 37/EQU 

626«EQU 
638-EQy 



65«/ B E 



66i«EQU 



7 4/B 



KIGBUP 

230»98/KITV 
KlQDeWN 

230»96/K!TV 

KIQJ6B 

230i89/K!TV 

KIQJ6B1 

756*BCS 
KIQJ9B2 

774»C! 
KIQJ6B 3 

782/BE 
KlQJeB^ 

772/BE 
KIGJ8B5 

769/BE 
KIQJQ86 

789/8 

KIQJ6B7 

309/BCS 

KIOUP 

230*97/K!TV 

KIQX 

943tl/BE2 
KIMEAD 

23o , 9o'*ITV 

KIH1 

987»99» L B 
KJH2 

987.102/8E 

KIJMPTBL 

230 , 50 / °E F 
KI^eUNT 

230»93/«ITV 

KIM6UNTZ 

U05/B 
KIMVMDR 
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892«EQU 
867«EQ^ 

7#2«EQU 

Soi/B 
785»EQ^ 
793»EQ^ 
802*EQU 
805-STCF 
812^BC5 
907*EQ^ 
9Sltl«STW 
9*7»63*EQM 

987tl05/BIH 
987»i06»AI 
2aO»52«CS£CT 

1437«EQ^ 
1419/B 



800/BE 



•14»BAL 



230«6*/USECT 230«l59/RE 



U33' B 



U47/B 



U67»*C9 



987»59/B 

KiN&MDR 

987»55'B 

KI9UTPUT 

230»99/KITV 

KIPL 

230»2Q*EQU 

KIPRI 

9i*59/REF 

K I RAD 1ST 

230tiOl/K!TV 

kircm 

gg60»34»SUD 
KIRCNJ1 

2260'39/BCR 
KIRCN2 

2£6q«DATA 

KIREQ 

230ti04/KITV 

KIREQBF 

2255»GEN 
KIREQBK 

2200/UW 
K1RE0BLK 

2201/STW 
KIREODCB 

22*7»EQU 
KIREOOD 

2241' T E*T 

KIREOFIL 

2260»25»LW 
KIREQNDD 

2067/BNEZ 

KIREQND6 

1695/BEZ 

KIREQSV 

2259»TEXT 



9M7t96»Ll 
9r7#95/BE 

2806-EQ^ 
23rttl79/lM 
23ft<»102/KlTV 

227o*RES 
22*0»36/BD* 
22aO»*1/BC« 
22AOM2/AW 

2051*RES 
22aO»29/AW« 

2257«GE N 
2 25<f ,QEN 

2258/QE N 

22^0»37^AW^ 

22*Q*28/BI« 

2176»*E S 

1700/BlR 

22a°«51/UH 
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987tH3-LI 



226Q»44-RES 



2260^3^STW 



?196»U 



Kl R EQTl 

2?43*TEXT 
KIREQT2 

22<f5.TEXT 

KIREOill 

2201/STw 

g26o»47/STW 

KIREQ8 

2258»QEN 

KIRQUE 

2200»LW 

KjRQUEl 

2202»BAL 
KISCRTH 

23Q.io7/K!TV 
KISEND 

230tL08/KITV 

KISTART 

230.105/KITV 

KISTSY 

23CM09/KITV 
KISTSYO 

248X-LB 
KISTSYX 

2484-BOR 
KTSTSY2 

2483/BE 
KISTVl 

987t4*2'BE 
KISTV2 

987»49/B 

987^38/BNE 
KITBL 

23o'^ 9 ^C5EF 

KITtME 

230tlll/KlTV 



1* 



22A0i52/STM 
22A0*47/STW 

224o»TEXT 
22A0t52/S7M 

22^0'22'LW 
22^0.^6/BE^ 

22*0«*9/Bc 5 

982«EQU 
23ntllO/KlTV 

2467»EQ^ 
248#/BDR 

2501/Bc R 
2498*18 
9«7t53*EQU 
9a7.«§7»EQU 
9*7f4*o*Ct 
230 i 5i»CSKCT 

23ntli2/<I T V 



2258/QEN 226Qt25/ L w 



2260i29/A WM 2260^7/Awm 2?*0«*3/ST w 



8240»53/B 



706*EQU 



2305/8 



230 f 62' USFCT 23o» l«8/rW 
1H27«EQU 
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KITV 






330»57»CNAMsr 






KMAXKIFL 




- 


230#44»EQU 


324/LI 




KMCSENO 






230.92/KITV 


1U9»EQU 




KMCSEND1 






lt35»EQU 


1HO/B 




KMCSENO2 






1138/BE 


mt*EQU 




KNIO 






309*EQU 


1310/S L S 




KN18 






210»EQU 


130S/SLS 




KN6 






207*E0U 






KN8 






2o a *£Q^ 


132S/SLD 




K8BF 






230»9*/K!TV 


582*EQU 




K8BN 






230»9S/KITV 


596*EQ U 




K8ST8P 






91^60/REF 


28*1/AI 




KOUTST9P 






28U/BE 

\* 9% i CI 


2829"EQU 




KPLw 

86/DEF 


2^0»43*EQU 


230»*3/CQU 


319/STW 


32o/ST w 


672/LW 
797/tM 


763/l.w 


778/uw 


1309/LW 


1315/LW 


1323/LW 


iBgS/LW 


H069^LW 


8X89/LW 


24o^/LW 


8M6/LW 


2*21/LW 


2744/Lw 


275l/Lw 


2767/Lw 


2«32/L* 


2833'IW 


284^34/LW 


KRBBCST 






230»:t20 / KJ TV 


25q9*EQU 





230«l86/LW 

67 3 /LW 

927/ L w 

1326/STW 

23*3/|_W 

25H/LW 

2768/Cw 
284^.35/lW 



30tl9l/LW 


230»192/LW 


318/STW 


- *S2 /LW 




762/LW 


987t35/i w w 


1"30*/|.W 


1^61/LW 


1537/LW 


1S66/IW 


2340/LW 


2376/STW 


23g2/tl 


2633/l.W 


263^/^w 


2743/|^w 


2779/L W 


2780/Lw 


2809/tw 



KRBC9M 

230»121/KITV 

KRBDCK 

263^»£QU 

KRBDCT 

25*9/BAl 
KR8DCT1 

264H»CLM 
KRBOISC 

230'122'KITV 
KRBDNCK 

2655-EQU 

KRBDSX 

2687/BAL 
K RB0S2 

8707/BANZ 

KRBOX 

2682/B 

KRBL8Q 

230.123/KITV 
KRBLSN 

2771/BE 

KRBL.VN 

277^/B 

KRBMV 

2525/BNE 

KRBMVO 

2505t26/BAt 

KRBMVl 

2!575»LB 

KRBMva 

2«577/BE 

KRBMV* 

2554/11 

KRBS 

230.124/KITV 

KRBSC 
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879l«EQU 

2769/BAL 
2630«EQU 

2692«EQU 
2726^8At 
2698/BAU 
27U*EQU 
2697«»EQU 

2764-EQ^ 
2775-EQU 
2782*EQU 

25S7»EQM 

2586/BL^ 

2587»EQU 

2571/Cl 

2717»EQM 



2679/BAL 



2693/BAL 



2721/BAL 



2733/BAL 
2703*EQu 



2589»ll 



2528tll/s 

KRBSgND 

230»125/KITV 
KRBSPN 

2646/BAl 

KRBSPNl 

26*9/ B NE 

krbspnz 

2667»CW 

KRB5WIT 

830tl26/K!TV 

KR9S1 

272Q/8E 
KRBWSN 

2637/BNE 
KRBX 

230tt27/K!TV 
KRBXl 

8S7/BNEZ 

KSCPU 

230tt06/K!TV 

KSCPU1 

1171»LW 

*SCPU2 

1170/LI 
KSQCO 

87/OEF 

KXCPU 

230til4/KITV 

KXCPU2 

88VBA L 

K XCPU3 

1211#3*D1SA8LE 

KO 

197»EQU 

Kl 

|98»EQU 



25*8«EqY 
2529«EQU 

g664»E0^ 
2651/BEZ 
2671/BDR 
g7^0"EQW 
2729*EQU 
26^5»EQU 
2674»EQU 
2678/BE 
1154»EQU 
1208/BAL 
H77.l*EQU 

U91"EQU 

lPiatl/BDK 

322/Ll 
23^/AI 



2793/B 

2685/BAL 
267i»B0R 
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g73i/BAL 
2688/ B 



2689/B 



2734/b 



3735/B 



2683»EQu 



2527/B 



2761/Cl 



284*/B 



284<M*1 / B 



1« 



199-EQU 

20l»EQU 
1*68/CW 



K2 

*5 

K8 

L 

LBIUN 

LF 

230»63»TEXT 

LIPBIT 

9ltl52/SREF 

LN0L 

91»62/SREF 
LSC 

230«48«EQU 
L8CK 

1596'BE 

lpaRt 

LSgRlAL 

9li64/REF 

MAP 

7l7i21/*PSD 

91,65/R E F 

2l6t7/EQU 

MASTER 

7l7«2l/lPSD 

MaXOaWaL 

1362/LI 

MAXG 

9l»66/REF 

MAXHRVAL 

1237/L1 



266/UCi 



27Q4/II 

23ftil30/USeCT 

l686* R E s 
650/LI 

1575'LB 



»16,1/EQW 
?16t8/EQU 



127S,DATA 

656/LI 
1272*DaTA 



2785/LI 



»48ts/Cl 
1629/lB 



2l6 t 2/E0U 
28<*<m58/1! 



690/L! 



162%'L J 



216,3/pOU 



2l* § */cGU 



216 # 5/eQU 



5116,6/eQU 



*AX M !NVAL 

1241'L! 

MAXM6NVAL 

MAXYRVAL 

1267/Lt 

9l»67/REF 
MCFC 

MING 

9it6«/REP* 
MKTSCR 

1536/BDR 
MODE? 

9H69/SREF 
MPBITS 

46*SET 
MSGT 

1957/LW 
MSMDAT 

124*«7/MH 
HXSTRM 

9it70/REF 
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M16 

M2 
M24 
M7 
M8 

r*DD 

NEWQ 



2l6tl«EQy 
2l6»2»EQU 
2l6t5«EQy 
2l6t3»EQU 
2l6»4»EQU 
9i»7l/REF 



1273»DATA 

1274»DATA 

1276*DATA 

1624/LI 
20^3'QEN 

662'CI 

X543/BL 



1969"QE N 
1^45t4*QEN 

8316'CI 

1949/cw 
1802/AND 



856/CI 

1550/B 



l56g#gQU 



1488/BAt 



lS03/BA! 
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9l»72/REF 


UBO/BAL 


2015/BA L 


nkeyins 






230ti29»EQU 


23n«187/LI 




NKIDL 






230»21^QEN 


230*37»EQU 




N9BRANCH 






22'5tl»B 


l*iltl/LW 




N9CC 






1904/BCR 


1912»EQU 




N9JDPUB 






1619/BE 


i677»lH 




N8T81P 






1!540*EQU 






N8TUN1QUIS 






1810/H 


1815*TEXTC 




NOTV0LI 






1918/BNE 


192*»EQU 




N6UNTSW 






1497/BNE 


1512-EQU 




NSCPU 






1381/LI 


1166/1! 


1175/Cl 


NUM 






230»59/SET 






NXKfCHR 






88/DEF 


2<*8«EQU 


276tl/BeZ 


NXKICHR8 






275/flNE 


279«EQU 




NXKICHR3 






262»EQU 


286/BD* 




NXKICHR31 






385»A1 






NXKJCHR32 






287*LCI 






NXKJCHR* 






266»LCJ 


272/BE 


284/BE 


NXKICHR5 






26^/81 


268«RES 





1203/L! 



326/RAL 



236^/SAL 



8373 / BAL 
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6ADBIT 










9l»l53/SREF 


2681/LI 


2684/L! 


2723/LI 


2730/LI 


8CPCK 










2402/BAL 


2^l9/BAU 


2437-EOU 






acPie 










9l»73/SREF 


2458'U 








8CPTYP 










9ii74/SREF 

8CQUEUE 

9W5/PE*" 

8FFBIT 

91t 154/srEF 


2^62/Cl 








362'BaL 


8U/BAL 


I8t3'8 


1963'BAl 


886/L1 


2521/Ll 


2673/L! 


2680/L! 


8HINM 










9i*76/REF 


2306/CN 








PLBIMIN 










91»77/r E F 


1625/LB 








PLMISID 










9l*78/REF 


6Si'CM 








P0STAPE 










19q3/BAL 


1935/BAl 


5.937/BAL 


1939/BAl 


1941/BAl 


P8STAPE1 










1911/BAL 


2003«EQU 








PREM8UNT 










1588/BNE 


16q6"RES 








PUBtK 










1594/BE 


H23»RE S 








QUEUE 










91.79/REF 


2202/BAU 








RAD1ST 










9i»80/REF 


2284/STW 








RASJ06L 










9l»8l/SREF 


1130^AND 








RATfDCTJ* 










9i»82/REF 


1634/BAl 


2232/BAL 






RBIFLAQ 










9l»l55/SREF 


266i/STS 


27 6/CW 


27Q8/STS 


2712/STS 


2 789/STS 











2723/L! 



2730/LI 



l996*EQU 



27^4/CW 



^786/CW 



RBBIID 

91«156/REF 

RBC3DE 

78«SET 

259Bt2/0© 

rbdsws n 

91.157/SREF 

RBLIMS 

9l»i58/REF 

RBXBIT 

91»159/SREF 

RDIlBL 

1896/BGE 
READTAPE 

l9l5/BAl 
REAVR 

1900.EQU 

REEL* 

1531 i*/B 

REQ*RS 

2086/BE 
REQTY 

2073/BE 

REQTY1 

2097. C I 

REQTY2 

2Q98/BE 

REST 

1569. LW 

REST10 

1572»CW 

REST20 

1573/BNE 

REST30 

1576/BEZ 

RMB 

9l»83/REF 



2550/MT8 
9 1 »i<»5/D0 

26*8/C0 

235o'CL M 

2681/LI 

1946-LI 
19^8/BAl. 

1932/B 

1557/ANt-Z 

209o»LB 

2082/BE 

2104/BIR 

2lol'BNE 

1696^BaU 

1579/Bd* 
1579»BD« 
158i*CB 
25ri5»42/8 



2650/MTB 
Wo'll*' 08 

2788/STD 
2 5 00 /CLM 
P684/LI 

2003-EQU 
1561/B 

P095»l! 
2103*A! 



885/DB 

g6^2/CLH 
2696/LI 



23^9/DB 



2666/LW 



2<f99/D9 



2667/CW 



22 



->5o7/D8 



1565»EQU 



2591/BLFZ 



2593^BQ 



2597/8 



RseRiai 




9l»8*/REF 


1581/CB 


52«EQU 


23n»l79/LM 


715/UI 


766/SLP 


987tlol/cI 


987tl03/STB 


1237/LI 


12*1/1-1 


1267/L! 


13 o' p USH 


1898/LI 


19^9/CW 


sibuais 




9l»85/REF 


880/STW 


s;cun 




91 »86/RgF 


2008/LW 


SJQJObACN 




9l»87/REF 


700/CD 


SIGJ6BTBL 




9l*88/R E F 


693/CD 


SiqUAIS 




9l*89/REF 


945/AW 


S«MBSF 




91»90/R£F 


223^/ST w 


S|Mp«YN 




9H91/SREF 


1186/MTW 


StNUMC 




230»59/SET 




SI3UAIS 




9l»92/REF 


879/ST w 


sbigjGbun 




91.93/REF 


657 / CB 


SBIINIT n 

*1»9*/ S REF 




1181/LB 


SBIRTY 




9l»95/REF 


2090/LB 


SBJSTATE 




9l»96/SREF 




SCNTxT 




9J.97/REF 


284#»55/lN 



230»lSo' s ™ 
767/STB 
987.1U/ L ! 

l303/ p ^LL 
2OI7/LW 

94f /LW 



324/LI 
770/PUSH 
987tUS/STB 
12fc*iS/A! 

l33o' p UU 

aoig/cw 

95Q/STW 



122Q/HTW 




9^3/LW 


951»l/sTW 


702/LB 




1184/Srft 


1213/lB 



3?8/BDR 
786/^ULL 

1136/^b 
l2**tt/AW 

l5#4/LB 



12lfe/ ST B 



335/BR 

987t**/tD 

1137/ e l 

laSB/LI 

iS^B/AND 



£3 



3^1/LC 
9R7tlOO/LB 
il*8/ST B 

l5*6/CI 



2* 



scsvdqi 

9l»98/REF 


284^»59/CS 








SEP10 










l625»LB 


1632/BD* 








SEP 2 










1626/BEZ 


1631»AI 








SETNEW 










1675/B 


168q/BGE 


l68^/B 


17S9/B 


J.781/BDR 


SGCQ 










91i99/REF 


2453^BAt 


2596/BAL 






SGCQ2 










91# 160/REF 


2762/B 








SHfRBCU 










9l«lOQ/*EF 


1655/SM 








SHIRGCU 










9X»lOl/REF 


1656/SM 


1670/Mtm 


2233/MTH 




SH?RM M 










91 ■ L02/REF 


781/CM 


2Q85/CH 






SHlRBCU 










91.103/REF 


165*/SM 








shirtbt 










91tL0^/REF 


1653/LH 








SIXPACK 










91#ioS/REF 


1559/BAl 


1920/BAL 






skevjn 










1463/BNE 


2300/BNS 


2302/BNF 


2330.E0U 




SKEYJN2 

2360-EQu 


2365/Bc S 


2379/BNE 


238t/R C S 


2186/blEZ 


24Q9/BCS 


24H/BG 


2^27/B 


2^59/BEZ 


2463/BNE 


SKFCK 










235^/BAL 


2363 w EQ y 


g^ 2 5/BAL 






SKFF 










2«tO0/B 


24U«EQU 








SKFJ 










2<f02»BAl 










SKFB 










2 Jf l /B 


24i8«EQU 









l79*»LI 



2388/BG 



2391/bNE 
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SKFRM 








2355/B 


g395»EQU 






SKFRH1 








?399»B 


2^26/B 






SKFR*2 








242^/BNE 

SKFSET 

2372-EOU 


2429«EQU 






2403/BAL 


2415/BAL 


2420/BAl 


SKF1 

24Q7/B 


2^13/B 


2M7/B 


2422»EQu 


SKIN 








230»195/BE 


2287-EQU 






SKINj 








2328/B 


2345*EQU 






SKIN2 








23i4»BDR 
S<IN3 

2315/B 


2321/B 






2317/BI& 


P32?«E0U 




SMUIS 








9mo6/REF 


848/LI 


9*6/Cl 




SNDOX 








9ltt07/REF 


2311/LB 


2320/LB 


2477/Ll 


SNDOFC 








91*161/REF 


25*7/11 






SNUU 








91 • IqS^REF 


853'CI 






SOLICIT 








91.1Q9/REF 


1500/MTB 


1529/MTB 


16Q7/LB 


1385/MTB 








SRC H AVR 








162X/B 


X7*1»RE8 






SSTAT 








9lt|io/REF 


591/MTB 


606/STB 




START*K£YIN 








49/B 


23(Si132»rES 


3016/E^d 




startbit 








1183/AI 









2480/LB 



2^98/lB 



16*7/LB 



17IO/STB 



1795/STB 
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STBJTyP 








91tlll/REF 


8312/CB 






ST8PBIT 








121B/A! 








SVIRSIZ 








91ttl2/REF 


T79H/LJ 


1631/AI 


2083ti/Li 


SWITGFC 








9l»i6S/REF 


276q/AI 






SYMC0M 








91.113/W 


2358/BAU 






symtabck 








91«L14/REF 

SYMX 

91»il5/REF 


2431/BAL 


8836/BAL 


28if^t38/BAL 


2<f8l/LB 


284<f«52/tB 




SYSACCT 








91».L16/REF 


679/LD 






SYSTRT 








91»117/REF 


?25tl/B 


I211t?/STW 




S7S9 








1128/BIF 








tibtsched 








91»:L18/reF 


716/BaI 






TJDELUS 








91t:ll9/REF 


369/B 






TIGJG8R 








9i»120/REF 


787/BaU 






TI3J»BSTRT 








9itl21/REF 


8o3/BAL 


987#45/BAL 


1188/BAU 1223/RAt 


TIRUE^ 








9lt:l82/R K F 


669/BaU 


860/BaL 




TBI FIGS 








9i*i24/REF 


2 9i/LC 


2i9^/LC 




TBIFLGS1 








91tl23/REF 


1977/LC 






TIME 








9lil25/REF 


i239/STH 


1244/STS 


124MWLB 25Q5t37/LW 


TPlGEaN 









987»<f#/lD 
TSERIAL 

91.136/REF 

TSTACK 

230'l76/LW 

TXM06SE 

90/DEF 

7XTGB 

230»TEXT 

TXTST9P 

;?29»T£XT 

TYPERR 

1583»BAL 

TVPMNSZ 

9l#i27/REF 

Tl 

UBlUS 

9i»i28/REF 
UHJFL02 

91.129/REF 

gxuiT 

91»13Q/RKF 
VERB 

2i6»18»EQU 

1917/cW 

wakeup 

91.131/REF 

WK 

7l7»2l/fPSD 

X 

230.56.SET 

XCF 

;?21»qata 

XF 

2l6t7»EQU 



9n7t61»TEXTC 
1569/LW 
246 ^LW* 

228»TE*TC 
2812/CW 
2810/CW 
1763/BN^: 
23o5/LI 

lsMH*t8/B!R 
851/LB 
2822/tH 
2009/Le^D 
1527/CW 
2045*TEXT 
l77if/BAl 

250.66.SET 
U73/ANO 
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l57?/CW 

2776/ p SW 

1187/UD 



2S24/STW 



1627/CW 

g778/PU ! 

1222'LD 



1798/BAL 



230,66/SET 230.129/pQU 



PB 



XFC 

XFF 

216#6»EQU 

XFFOaOO 

189#/©r 
XF7 

222»DATA 

xo 

91.133/REF 
XIOOOFFFF 

91.L3VREF 

X30 

i?l8*DATA 

X7FF 

216«8»EQU 
XgO 

2l6t9*EQU 
X88 

2IH3»DATA 
V 

230'59»SET 

YClFF 

216»l7«oATA 

YC5FF 

;»19*»DATA 
YFFFF 

91»135/REF 
YOOOA 

91.136/REF 

YOl 

216il6*EQU 

YO* 

216»l5fEQU 

Y06 

91.137/REF 

Y07 



U82/ANP 1214/AND 

1337/ANiP 

20*7*DA T A 

22#i0.1l/MBS 

1620/ANO 

15^5/ANP 
22aO»31/AND 

2823/8r 

2l0t6o/ERRQR 23o»6i/QeT0 
1612/CW 1766/CW 



364/LW 

1938/L.W 
J936/LW 



1888/ C w 



1940/LW 



Y08 



Yl 



Y18 



Y2 



Y3 



Y4 



Y8 



91tl38/REF 

816»l3*EQy 
9l#X39/REF 
216»l2»EQg 
91 • 14Q/REF 



216<10-EQU 

ZAPlO 

850EQU 

ZAP20 

85^/BE 

1A1 

2260*6Q/BC S 
1A2 

2260»59»LC 
1MIN 

9l«:lH/REF 

77»SET 

$PEND 

23o*6l/QeT6 

1^52/CW 



193VLW 
2 1 6t l 8/EQU 

2217/CW 

IH8/LW 
1^32/LW 
335/OR 
864/BD* 
857/BLE 

22aQ»62/BAZ 
22aO»68/Bl£ 
124^tl0/SW 

23Q*67"PE N D 
2046»TE X T 



i.9ot/tw 

1524/cw 

22*0»lO' e K 

15M/CW 
1.92! /LW 

1498/CW 

167l/»R 

863»EQU 
2260»64/BNE 



1907/LW 
153tt2/ c w 

1679/f.w 



2260t66»Al 



201*/CW 



17*7/ C w 



?9 



J910/ L W 
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* 
KEyN 



kfvn driver moduli for keyin overlay 

module bias 



30 



EGU 
DEF 



• 

KEYN 



##♦♦#*#»###»#♦**###*#*♦♦♦#*#*##*♦#*#•♦##♦*#♦#♦*###♦####**#***#**#*###♦* 



*P# 
*P# 
•p# 
*P# 
#P# 

*P# 
#P# 
•P# 
*p» 
#P# 
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07000060 
00000000 
ftOOOOOOO 
ftOOOOOOO 
ftOOOOOOO 



0001a 

7A 



40 

so 

*B 
40 



*«••*• 

*K* 

*i# 

**♦ 

*/* 

*** 

# #* 

**# 

*** 
*## 

*j* 
*#« 

**# 

*#»### 

* 

* 

KIPL 
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##♦*#•##****#♦*###*#*#*♦#*****#♦»#•###***♦*♦## #»«*##*###iit ******* 

k e yin. parameter. Ust an 8 „word data block which is built 

DYNAMICALLY IN TSTACK E aCH TlMg; K E YlN IS ENTFRE&* 



WORD 

1 
2 

3 

4 

5 

6 
7 



* DELIMITERS! BA(*EYIN DELIMITERS) 

CURRENT CHARACTER POSITION (KCCP) 

blank acti v e flag <kflaGs> 

ADRt 8F KEyIN BUFFER <KBUF> 

FIELP LENGTH <KFL) 

• 

♦ 12-CHAR FIELD BUFF|R (KPLBl 



#♦*####•****#***##***#*#*****#♦###«##•#******#*#**##*«*»##***#**« 
KlpL • KEyIN P ARA M ETER LIST 



B6UND 4 

EOU * 
QFN*8'24 NKloL*BA<KlDL> 

Data 

DATA 

data keyinbuf 

DATA 

RES 3 



* 
<!DL 



000000ft7 



NKIDL 



BOUND 

ESU 

DATA* 

DATA* 

DATAj 

DATA* 

Data* 

DATA* 
DATA* 
EQU 



4 

$ 
•I 
*/ 
M 

J] 

» • 

t 

BA($)»BA(KIDL) 



NO. DELlM» i BA(<EYlN DElTmETErS) 
CUR CHAR POSITION KCCP 
BLANK ACTIVE FLAG KFLAGS 
ADR OF KEYIN BUFFER 
FIELD LENGTH KFL 
1? CHAR FIELD b UFFEr 



KEYIN DELIMITER LIST 



NO, OF KEYIN DELIMETERS 



HOI 



17 8 42 

38« 
39* 
40* 

*!• 
42* 
43* 
44« 
45* 
46* 



S£P 08' '7* 

OOOOOOnl 
OOOOOOftS 
000000ft3 
OOOOOOo* 
000000h5 

OOOOOOftC 
0000001* 
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KCCp 

KFLAGS 


e q u 


1 


EGU 


2 


KBUP* 


EflU 


3 


K r L 


EOy 


4 


KPLB 


EQU 


5 


KMAXKlpL 


Enu 


12 


BAKPLB 


EQU 


4*<PLB 




B»UND 


4 



CUR CHAR p&SITI&N 

blank active flag 
buffer address 

riF L D LENGTH 
FTELD BUFFER 
MAy. KEyJN F^ELD LENGTH 



HOI 



17» 
47* 

48* 
49* 



42 SEP 08* *7r 
01 0001 A 



5 



0* 



5 1 * 

52* 

53* 
54* 
55* 
56* 
57* 
58* 
59* 
60* 

© 1 * 

fee 

$3* 

64* 

65* 

66* 

67* 

68* 

69* 

7O* 

71* 

72* 
73* 

74* 

75* 
76* 
77* 
78* 



Q2 OOOOO 
03 OOOOO 



OOOOOOftO 
OOOOOOnO 



02 60000 

03 OOOOO 

02 60001 

03 0000 1 

02 00002 

03 00002 

02 60003 

03 60003 

02 60004 

03 O0004 



40404040 A 
A8000066 01 
rlC2D609 A 
^8000077 Ol 
r l05E2D^ A 
A8000212 01 
(UD5E2E2 A 
*8ooo2lO 01 
r4404040 A 
*8000lD9 Ol 



L9C 



KlTBL 

KIJMPTQL 

* 

* 

* 

X 

KITV 



page 

equ 

dfp 

Dg;F 

CSECT 
CSECT 
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i 

KITBL 
KUMPjBl 






CSECT BIAS P8R pqssibCe patching 
csect bus f&r p&ssibce patching 



IP 



X 

• PEND 

• 

*, 

*< 

* 



'•»' 



SET 

CNAME 
PROC 

SET 

ERR9R 

G»TS# 

USECT 

TEXT 

USECT 

B 

SET 

pENQ 



MUM ( AF )<2 I S J NU*C ( A*tl > ) »* 
ii#Y »IllE qA 1/mISSInG Aq RUM ENT FIElO 1 
T $PEND 

KITBL 

AF(1) 

KlJMPrBt 

AF(2> 

X*l 



NAhE**rEcEIVER 



KlTv 


t uxSyERR 




KTTy 


tABORuKJABBRT 


ABftRT 


KlTv 


*ANSm»jKUNSm 


ANSm»u n T 


KlTv 


tANSSf jKUNSS 


ANSSCRATCH 


KTTV 


iD fjKlOATE 






HOI 



17! 4 


2 I 


SEP 08* 


79* 


02 


00005 




03 


00005 


80* 


02 


OO006 




03 


00006 


81* 


02 


00007 




03 


00007 


82* 


02 


OOOOS 




03 


00008 


83* 


02 


60009 




03 6OOO9 


84* 


02 


OOOOA 




03 


OOOOA 


85* 


02 


OOOOb 




03 


OO00B 


86* 


o2 
03 


OOOoc 


87* 


02 
O3 


OOQ0& 

00000 


88* 


02 


600Q E 




03 


doooe 


89* 


02 


OOOOF 




03 


OOOOF 


9 * 


q2 
03 


88818 


9l* 


02 


oooii 




03 


§00 it 


92* 


02 


00012 




03 


00012 


93* 


g2 
03 


00013 
OOOI3 


94* 


02 


OO014 




03 


0001* 


95* 


02 


00015 




03 


00015 


96» 


02 


GOO 1 6 




03 


00016 


97* 


02 


00017 



»7r 

r*CiE3C5 A 

A8000109 oi 
r*c5o 3 c5 A 

68000000 X 
r4C5D3E3 A 
680000B8 01 
r*C9ClC7 A 
68000145 01 
r*C9£207 A 
^gOOOOOO x 
r5404040 A 
6800007A 01 
T5D909D6 A 
6800007A 01 

r5D9EgC5 A 
A g000§0l 01 

r6D3E4fE2 A 
680005EA ot 
T6D6D9D^ A 

68000000 X 
r7DlD6C2 A 

680000SE 01 
r8C5CiC4 A 

A8 oooi 6A 01 

T9D5E340 A 
*8000073 Ol 
n?c3E2 C 5 A 

6800017C 01 
04D6E4D5 A 
A 800021 6 01 

06C2D6C6 A 
6800006E 01 
H6C2D6D5 A 
68Q00070 01 
H6C6C640 A 
68000117 01 
H6D54040 A 



Gj»BT X T 



KITV 


[DATE, 


jKlOATE 


DATE 


KTTv 


> E U E. 


jKId^L 


D E L ETE 


<TT V 


'DELTt 


#kIdeit 


DFLTA 


K*Tv 


fOlAQf 


#kOia g 


DTA G 


KTTV 


iDlSPf 


jKIDIS 


DISPLAY 


KITV 


'E • 


,Kj£RR9R 


E 


<ITV « 


ERR8< 


#KiE«R9R 


ERRBR 


KITV 


'ERSEf 


iENSENO 


ERSENO 


KTTV 


•FUUS' 


,KlFLUSH 


FLUSH 


KTTV 


F9RM» 


jKFRMCQ 


FftRM 


KlTv I 


QjQBf 


#KlQj80 


QjBB 


KITV 


1HEAD1 


jKlHEAO 


HEADING 


KTTV 


IINT t 


jENTlNT 


INT 


KITV 


MCSEt 


jKMc^END 


mc s end 


KITV i 


M9UN, 


jKiM8UNT 


M8UNT 


KITV I 


8B8FI 


jK&BF 


9B8FF 


KTTv 


939N» 


#k»bn 


8*8N 


KlTy 1 


6FF 1 


jk*qD&wn 


8FF 


KTTv 


6N f 


#K|QUP 


8N 
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HOI 



17? 

98* 
99* 

100* 
101* 

102* 
103* 

104* 
105* 
106# 
107* 
108* 
109* 
110* 
111* 
112* 
113* 
114* 
115* 



42 sEP 08* 
03 O0017 

02 00018 

03 60018 

02 Q0019 

03 00019 

02 0001* 

03 OOOU 

02 oooia 

03 6001B 

02 OOOIC 

03 OOOlc 

02 OOOIq 

03 0001D 

02 oogiE 

03 0001 E 

02 0001? 

03 oooir 

02 00020 

03 00020 

02 00021 

03 00021 

02 60022 

03 O0022 

02 60023 

03 60023 

02 O0024 

03 00024 

03 0002 S 

02 00026 

03 O002 6 

02 0QQ27 

03 O002 7 

02 00028 

03 00028 

02 00029 

03 00029 



17* 

A8000123 01 

O6D5C240 A 

*8000121 01 

06E4E3D7 A 

A 8000sC7 01 

D6E5C5D9 A 

*80002U 0* 

IVD*C 5 C6 A 

*8000465 01 

07D9C9D6 A 

*8000000 X 

n 9c5clC4 A 

A8000214 01 

09C5D8E* A 

^g0003B9 0l 

F2404Q4G A 

A80000B5 01 

T2C3D7E4 A 

^80001^4 01 

F2C3D9C1 A 

^8000218 01 

jr2C5D5C4 A 

A8000151 01 

F2E24040 A 

*800Q4E7 01 

F2E3C1D9 A 

*8000QB5 01 

F34q4q4q A 

a8 0001c1 01 

F3C9D4C5 A 

^OOOlcl 01 

fc8 oooo 77 01 

F7C3D7E4 A 

*80Q0lAA 01 

F9C1D740 A 

6800010A 01 
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kttv 


Q% t 


iK*GBUP 


®N@ 


KITV \ 


©UTPt 


,KJ8UTPUT 


9UTPUT 


KITV ' 


6VER! 


,KiANS8 


9VER 


KTTV < 


PREpt 


#kJra d ist 


PrEFEr 


KTTV 


►PRlOf 


jKIPRI 


PRIORITY 


KTTV ' 


REApt 


jKUNSO 


RPAq 


KITV I 


REQUf 


,KlREQ 


REQUEST 


KITV 1 


S < 


jKISTART 


S 


KITV 


SCpUt 


iK s CpU 


SCpU 


KTTV i 


SCRAf 


jKiSCRTM 


SCRATCM/9CRA03 ( SYYNOO ) 


KITV 


SEND* 


jKISENO 


srNO 


KlTv ' 


SS t 


iK^STSy 


sss 


ktt v 


STAR! 


#<iSTART 


START 


KTTV 


>T » 


iKlTlME 


T 


KTTV 


'TIME 1 


jKJTIME 


TIME 


KITV 


X 1 


^KiABORT 


X 


KITV 


'XCPU* 


jKXCPU 


XCPU 


kttv 


'ZAp t 


jK^FPdwN 


ZAp 



HOI 



17 U 


2 SEP 08' 


'75 












116* 










• 








117* 










* 








U8* 










• 








119# 




OOOOOOnl 




09 


RB^ftDg: 




120* 


03 


0002A 
0002 A 


D9C2C2C4 


A 


KTTV 


tRBBDi 


jKWBBCST 


rrbdcst 




^8°00Sl2 


01 










121* 


81 


60Q2 B 
0002b 


H9CgC3D6 
a8 oCo 5C5 


A 
01 


K!TV 


'RBCS 1 


,KRBCeM 


RRC&M 


122* 


02 
03 


no02 c 
0002C 


nSCgC^Cg 
*8Q00575 
n9C2D3D6 


A 
01 


KITV 


'RBOt! 


I,K«BDISC 


RBOISC 


123* 


02 


0002D 


A 


KITV 


iRgLU 


#K K B l » 8 Q 


RrL»q 




03 


O002D 


A«0005AD 


01 










124* 


02 
03 


0002E 
0002g 


D9C2£240 
^8000586 


A 
0* 


KITV 


tRBS 


#K«BS 


rrs 


125* 


02 
03 


0002F 
0002F 


n 9c2E2c8 
A800051B 


A 

01 


KITV 


«RBSE' 


jKRbSENd 


RRSENq 


126* 


02 
03 


00030 
00030 


H9C2E2E6 

Ag000597 
ra 9 C 2Eno 


A 

o* 


KITV 


tRBSW 


ijKRbSWIT 


RRSWITCH 


127* 


02 


00031 


A 


KITV 


f RBX 


jKNBX 


RBX 




03 


00031 


*8000567 


01 










128* 










FIN 








129* 




000000*1 




NKEYINS EQU 


X»l 






130* 


03 


00032 






USEr.T 


L9C 







*7 



HOI 17142 SEP 08* * 7fi 
131* 



132* 
133* 
134* 
135* 

136* 
I37* 

*38* 
139* 
140* 
141* 
142* 
143* 
144* 
145* 
146* 
147* 
I48* 
*49* 
150* 
151* 
152* 
153* 
154* 

155* 

*56* 
157* 
158* 
159* 

Uo* 

161* 

162* 
163* 

164* 

165* 



Ol OOOlA 
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PAGF 
STARTtKE^IN R£S 

**♦»**♦#**#**********#*♦*************#*******************##************ 
*p* 

*F# 



*F# 

*F* 
*F* 

*F* 
*F# 
*F* 



NA^ES STARTtKEYlN 

PURPaSEj K£Y!NfS START ADDRESS 



Df?SCRlPTI9N! S6E S DlRE c TlY t© AVR.PR©CgSSlNG IF AVRDCt IS N8N 

Ze«8j 8T w E R WlSE IT BUiLDs SKELETON K^Ytn Parameter 
list in tstac k # acquires first FIELD 8F the kEYIN 

BUFFER AND TRANSFERS C8NTR8L T8 THE APPR8PRIATE 



CALL} 8VERLAY ULL AS THE RESULT ©F ©PERAT9R k^yIM £ nD » 
ACTI8N 8* 1/6 INTERRUPT FR»M AVR, 

RrGlSTERSl ALL A«E VULNgR A BLE 

INTERFACE? TRANSFERS CONTROL T8 AppR©pRlATE HANDLER DEPENDING 
UP8N SERVICE REQUIRED (KEYlN 8R AVR)t 



1 



66' 

67< 



*F # HANDLER* 

**♦#*****♦*************♦************#*******#*******#*************#**** 

*D* namei start*ke y in 

*D* 
*D # 

*D* 

*D* 
*D* 

*D* 
*0 # 

*D* 

*D* 
*D# 

*D* 
*D* 

*n* 
*D# 
*D* 
*D# 

*D* 
*D# 
*D* 
*D* 
*D* 
*D* 



INPUTJ 



8UTpUT: 



AVRDCT • 

/•O 

KE y !NBUF 



Implies ©peRAT©r kEyIn 
implies avr 

©PeRaT©R'S KEVIN TE*T 



Rl > FlR s T 4 CHARACTERS ©F <EyIN 

r7 * adr ©f keyin parameter list 
avrdct is zeroed 



DFSCRlpTI©N| q&ES DlRECTLy T© AvR«pR©CESSlN Q X pr AyR^CT IS N8N 

ze*©« ©th e rwise It builds skelet©n keyin parameter 
list in tstac k # acquires fl*st field ©f the k eyln 
buffer and transfers c8ntr9l t© the appropriate 

HANDLER t 

#*♦«♦###*##♦♦#****#*******************#*****#***#**********##********** 



MOl 17 1 4 


2 


SEP 08# 


'7k 








168* 








« 






169* 


0: 


. noolA 


?27qoOOO 


A 


LU7 





170 # 


03 


L 0001B 


46700000 


X 


XW#7 


AVRDCT 


l 7 i# 


03 


L 0001C 


A9300333 




BNEZ 


AVR 


172* 


03 


1 00010 


J»2tOOQ15 


A 


UI#1 


KCRET 


173* 


0: 


L 0001E 


71100000 


X 


CB#1 


KEY1NBUF 


1 7 4* 


03 


1. 600IF 


A830006D 




Bf 


KEVINR 


175* 


03 


L 00020 


P210000F 


A 


bump 


l5#Rl 




03 


L 00021 


13100000 


X 






176* 


03 


L 00022 


12700000 


X 


LW#R7 


TSTACk 


177* 


01 


I 60023 


*07FFFF9 


A 


AI#R7 


• 7 


*78* 


03 


L 0002^ 


62200050 


A 


LCI 


5 


179* 


03 


L 00025 


PAOOOOIO 




LM'RO 


KIP L 


180# 


03 


L 00026 


PBQEOOOO 


A 


STM^RO 


0#R7 


l8l # 


03 


L 00027 


^2100000 


A KEVIN20 


LIjRi 





182* 


03 


I 00028 


351E0001 


A 


STWjRi 


KCCPjR? 


183* 


03 


L O0029 


AAB00050 




BALiSR4 


qKIfUD 


184* 

}85* 
l 86* 


03 


L 0002A 


^9800066 


* 


BCSj8 


KEYERR 


03 


L 6002B 


l2lEO00 5 


A 


LW,Rl 


KPUBjR7 


187* 


03 


L 0002C 


*230003l 


A 


Ll,R3 


NKgYlNS 


188« 


03 


L 00020 


11160000 


02 KEylNA 


cw R i 


«ITbL#«3 


189* 


03 


L 0002C 


&836Q000 


03 


BE 


KIJmPTBL 


190* 
19!* 


8] 


! 00030 


A430QQ20 
3 22 E 000 5 




BDR*R3 


KEYINA 


A 


LW,R2 


KPLBjR? 


192* 


03 


L 00031 


323E0006 


A 


LWjR3 


KPLB*liR 


193* 


03 


L 00032 


72100001 


A 


LB#Ri 


*1 


I94* 


03 


L 00033 


?ll000E2 


A 


CT#R1 


»s f 


195* 


03 


I 00034 


A830046B 




BE 


SKlN 


196* 


03 


L 0003S 


A8000066 




B 


<EYERR 
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IF AyR* 06 IT AND RESET FLAq 



MftVE PARAMETER 



L IST Tfi T3TAc< 



SrT CUR CHAR PBSTI&N • 
QET 1ST FIELD tip K^ylN 
CHECK IF A LEGAL FIELD 

(Rl) ■ 1ST 4 CHAR &F FIELD 
(R3) • NOt 0F KeYiNS 

Q8 TS APPR9PRIATE R8UTINE 



CHECK IF SYM8IBNT KEYTN 



HOI 



17142 
197* 

232 
233 
234 
248 
250 
251 

252 
253 

254 

255 

2 56 

257 
258 

259 

260 
1* 
2* 
3* 

4* 
5* 
6* 
7* 

8* 

9* 

10* 
11* 
12# 
13* 
I4* 

l5 # 

16* 

17* 
18* 
lg* 

261 
262 



SEP 8 # *7« 

01 60036 r584Q007 A 
1 OOQ37 *58E ng2 A 
1 0003g p020000l a 

01 Q0039 



50 
pAQ£ 
QKtFUDi STB^SRl *R7jRji> 

STWjS«1 KFLAGS#R7 

AT#R2 Kl 
EQU $ 
#»♦#♦#♦**#***»####**#»♦•♦*»###*##♦#♦###*##♦*♦###•##*####*#*»#*** 



CHAR T8 BFR 
Bl.NK ACTIVE 



NAME? 



NXKICHR 



PURPOSE t T8 »8TAIN THE NEXT CHARACTER OF KEVIN INPUT, 
C8NDlTl» N AtLY SKlPPjN6 BLANKS, AND TO FLAG 
DELlMlTEHSt 

Description* returns t» the caller the n e xt character in the 

K£Y 1N BUFFER AND INCREMENTS THE CURRENT CHa«aGTER 
POSITION IN THE KEVIN PARAMETER LlSTt 
♦**♦♦##***#**•**♦***#*«***#»#♦**#♦##»##**♦*«##•♦#♦**#**#****•♦** 



01 60039 



S23E0001 A 



NXKICHR 
*##♦#*♦ 

*F# 

*p# 

*F* 
*F# 
*F# 

*F# 
*F# 
*F# 

*F# 

*##♦#*# 

*D# 

*D* 

*D* 

*D* 

*D# 

*D# 
*D* 
*D» 
*D# 

•D* 
*D* 
*D* 
*D# 

*D* 
*D# 

*D* 

*D# 

*D# 

*####♦*##♦«*♦***#**»##♦«##*■»•»*•**•••#*####♦«**#*»#**#*»##*********♦*** 

# 

U W #R3 |<CCp#R7 (R3) > CUR CHAR POSITION 



NAME J 
CaLLJ 
INPUTS 



NXKICHR 

BAL,8R4<KU> 

R7 * ADR OF KEYIN PARAMETER LIST 



OUTPUT; SRl(Rg) * NEXT CHARACTER FROM KEYIN BUFFER ( KEYINBUP) 
CC1 « 1 IF THe CHARACTER IS A DELIMITER 
CURRENT CHaRaCTE r POSITION (KCCP) IS INCR E MeN T eD 

registers: r3 & *4 are vulnerable 

environment? master/mapped 

Description* returns t» the calleR the n e xt charaCtfR in the 

KpYim BUFFER AND jNCREMgtM T? jME CURRENT CH A R A CTER 
POSITION (KCCp) IN THE KEvlN pARAMETER LIST, sUNk 
CHARACTERS WILL Be SKIPPED IF KFlAGS IS ZERO. 



WOI 



17U2 J 


SEP °8# 


f 7i 








263 


01 


0003A 


S»1300048 


A 


CT#R3 


72 


264 


01 


0003B 


*9l0003F 




BL 


NXKTCHR5 


265 


01 


0003C 


?28qo026 


A 


U*SR1 


KE&B 


266 


01 


0003° 


o22ooo 8 g 


A 


NXKJCHPU LCI 


K8 


267 


oi 


0003E 


rsoooooB 


A 


B 


*SR^ 


*68 


0003F 






NXK1CHR5 RrS 





269 


01 


oo03p 


*24E0Q03 


A 


LWR4 


KBUF'R? 


270 


01 


00040 


F2860004 


A 


lb#sri 


*R4,R3 


271 


01 


OO041 


*1800015 


A 


CTjSRI 


KC«ET 


272 


01 


000^2 


6830003D 




BF 


NXKICHR4 


273 


01 


00043 


331E0001 


A 


MTW.i 


KCCP # R7 


27* 


01 


00044 


Plg00040 


A 


Ci^R 1 


KBLaNK 


275 


01 


60045 


69300048 




BNE 


NXKICHR2 


276 


01 


00046 


32310002 


A 


LWjR3 


KriAQS#R7 


1* 


01 


OOO^ 7 


6^300039 




BEZ 


NXKICMR 


2 78 










« 




279 




01 


000 4 g 




NXKICNR2 rnu 


$ 


280 


01 


O0048 


r2300007 


A 


LB*r3 


# R 7 


281 


01 


O0049 


S24EO00O 


A 


LW*R4 


0#R7 


282 




01 


0004A 




N Xk ICMR3 EqU 


$ 


283 


01 


O004A 


71880000 


A 


CBjSRI 


0* R 4 


284 


01 


O00* 8 


68300030 




sr 


NXKtCHR^ 


285 


01 


0004C 


?0400001 


A 


NXKICHR31 Al*R4 


1 


286 


01 


0004D 


A430004A 




BDR,R3 


NXKICHR3 


287 


01 


0004E 


02200000 


A 


NXKICHR32 LCI 





Coo 


01 


0004F 


r800000B 


A 


B 


• SR4 


2 8 9 










* 





STZE & f »<Eyi N BUFFER 
C8UN1T UP T8 IT 

DELIM, SET CCt 



(r4j 1 aor »r kEyin buffer 

ptck up next char 

check If a carriage return 

set ccp iCCP+t 

check if chaR is a bl a nk 

CHECK IF BLANK IS ACTIVE 



<R3> 9 N ft« ftF o^LlM 
BA(DELIMITERS) 

check if char is a delimiter 
next index 
n»rmal return 
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HOI 



17 1*2 
290 
304 

305 

306 
307 
308 

309 

310 

311 
312 
313 
314 

1* 

2* 

3* 

4* 

5 # 

6# 

7# 

8* 

9* 
10* 

11* 

12* 
13* 
14* 
15* 
16* 
17* 
18* 
1 5 * 
20* 
21* 
22* 
23* 

24* 

25* 



SEP 08' f 7R 
01 0Q050 
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PAGE 

GKIFLD EQU * 
•###♦***#*♦#«♦**♦«#♦♦♦###**#**♦*#*♦♦#######♦•#*#»#*#♦*#######*######*♦* 

*F# 

*F* 
*F# 

*F» 
*F* 

*F# 

*F* 
*F# 



name: gkifld 

pURpBSES T8 aCqUI«E THE NExT FIELD FR©M THE KEyIN B u FFERt 



D^SCRIPTIBNJ M8VES THE N£XT FIELD <<* 12 CHARACTERS* FROM THE 
K E Y!N BUFFER T© THE FIELD BUFFER ©F THE ^E^IM 
pARAMETE R LIST AND INITIALIZES T*E FIELD LENqTW IN TH 
KEVIN PARAMETER LIST. 

#•#########♦♦##*#*♦####♦*#**♦♦«##**♦♦♦•»#«♦#♦#**•#*#«###♦#•##♦*#♦*###♦* 

*D # 

*D* 
*D* 

*D* 

R7 ■ aDR ©f ke^in Parameter list 



*d# 

*D* 
*D# 

*D# 
*D* 
*0* 

*D# 
*D* 
*D# 

*D* 
*D# 

*D* 

*D# 

*D# 
*D# 
*D# 

*D* 
*0» 
*D* 
*D* 



NAME? 
CALL: 

input' 

©UTpUT* 



QKIfLD 
BALjSR4(«11) 



sRKRg) « delimiter character that terminates field 

CCl * 1 IF 1 > FIELD LENQTH > 12 
KFL ■ FItLD LENGTH 

KPLB« N£ X T F IELD FRftM KgYlNBUF, Lg;FT*JUfiTlFTE3 *IT h 
TRAJLING BLANKS 

RrGISTERSI RO THRU R2 are vulnerable 

INTERFACE? NX*IC H * 

ENVIRONMENT! MASTER/MAPPED 

DpSCPJPTieNI MaVES THE NgXT »"IeLD <<* 12 CHaRaCtE r S> FR9M the 
K E Y IN BUFFER T© THE F !E LD BUFFrR ©F jHe ^IN 
PARAMETER LIST (KPLB) AN& INITIA L IZES THE plE^D LFNGT 
IN THE KEYIN PARAMETER LIST (KFL J, LEADING BLANKS AR 
SUPPRESSED BY SETTING KflAqS T© ZER© pRI©R T© C*LLl N G 

NXKfCHRf 



##*♦♦#♦######♦*♦*##*###****♦**♦#»*♦######*#♦#**»•**♦*•#*****##♦♦***♦*** 



HOI 



1714 


2 * 


Sep 08* 


*7* 










315 










* 






316 


01 


00050 


69g00000 


N 




pUSM 


SR4 


317 


01 


6oo3i 


^2200000 


X 




LW#RP 


BUNK 


318 


01 


00052 


352E0Q05 


A 




STW,R2 


KPLBjR? 


319 


01 


00Q33 


352Eoqq6 


A 




STW,R2 


KPIB*ijR7 


320 


01 


00054 


S52E0007 


A 




STW*R2 


KPIB*?jR? 


321 
322 


01 


OOOsg 


P2100000 


A 


♦ 


Lt#Ri 


KO 


323 


01 


00056 


^5iEq002 


A 




STW,Rl 


KFlAGS,R? 


324 


01 


OOO57 


?200000D 


A 




L? # RO 


KMAXKiFL+1 


325 


01 


000§8_ 


*2200Q14 


A 




L*'R 2 


BAKpiB 
NXKICMR 


326 


01 


00059 


6ABQ0039 






BALiS«4 


327 


01 


0005 A 


*9S 000 5D 






BC$,8 


GKIFLD3 


328 


01 


O005® 


*^000036 






BDRjRo 


GKlFlOi 


329 


01 


000 5C 


A 8 00005 F 






B 


GKIFLD4 


330 










* 






331 




01 


ooobO 




GKTFID3 


EQU 


* 


332 


01 


OO05D 


£120001* 


A 




CI#R2 


BAKPIB 


333 


01 


0005E 


6 9 3000 6 






BNE 


GKIFLD5 


334 




01 


0005 F 




GKIFLD4 


EQU 


* 


335 


01 


0005F 


49000020 


N 




8R#Ro 


Y8 


336 




01 


000*0 




GKfFLDS 


EQU 


$ 


337 


01 


00060 


*Q2FFFEX 


A 




AI,R? 


•BAKPLB 


338 


01 


000 6 1 


3»52EoOO^ 


A 




STWjR2 


KFL#R7 


339 


01 


0QQ 6 2 
000^3 


3 5 l E OQQ2 
OgBOOOOO 


A 




STWjRi 


KFLAGS#R7 


340 


01 


N 




PULL 


SR4 


341 


01 


000^4 


70200000 


A 




LC 


«0 


342 


01 


00065 


F800000B 


A 




B 


♦SR4 
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FTLL 



BUFFER 



WITH BLANKS 



sft blank nbt active 

(ro) ■ max Kevin field Lengtm+i 

get next key in char 
branch if a delimiter 

field is m8re than 12 char l»ng 



CHK LNGTH FLD 
BRANCH IF NBT 



FIELD LENGTH 

SFT BLANK NiT ACTIVE 



EXIT 



HOI 



17«V 
343 
344 
345 

346 
347 
348 

349 
350 

35 l 
352 
353 
354 
355 
1» 

2» 
3# 

4* 
5* 
6* 
7* 

8# 
9# 

lQ» 

11* 
12* 

13* 
l4« 

356 
357 

358 

359 

36Q 
36i 
362 
1* 

3* 



SEP 0«# f 7K 
01 000*6 



01 00066 

01 60067 

01 

01 00068 

01 OOO 6 * 

01 6oo6 A 



?210O0O4f A 

*8000069 
000*8 

P2100003 A 

?f£ooooo J 

A A8 00000 X 



NAME J 



keyfrr 
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PAGE 

keyerr equ $ 

*F# 
*F# 

»F# 
*F* 
*F# 
*F# 
*F# 
*F# 

*F* 



pURpSSEJ Tft eUypUT AN ERR6R MESSAGE »N 9Cj RE«TRTQgER THE 
CGNTR6L TASK, AND EVITt 



DfrSCRlPTieNi 6UT P UTS EIT*eR >E* f < |F CALL IS T9 *EYeRR> »R 
■LATER* UF CALL IS Tft KEYERRi)* RE«TRlGGERS THE 
C0N T R0L TASK S8 jH£ K E ViN M A Y B E Re.tRIeP, A^D E*ITS 
(KEylNR) T9 STEp ylA T|DeLUSi 
#♦###♦#»♦####♦**•♦#»♦**#*********♦**•####**•#*•»#*****♦*##***«##***♦•** 

*D# 
*D* 



*D* 
*0» 
*D# 
»D# 
*D* 
*D* 
*D» 

*D# 
#D # 

*D» 



NAME: 

ENTRY* 

CALL? 



KEYERR 

keyerrMeyinr 

direct branch f8r exit from keyln overlay 



INTERNE! »CQUEUE# CTRIG, TjDELUS 



DESCRIPTI8NJ 9UTPUTS ElTHpR ftF TW9 MESSAGES VIA QCfDUEyEj 

»EH* C IF CALL IS T© KEYgRR) 8R *LATER< flF CALL IS T& 
KEYERRl)* THE CeN?R«!L TASK IS RFTRIGGErED VIA A CALL 
Td CTRI6 <S9 THE kEYIN may BE RE«TRl£D)j FINALLY, 

exit is made by calling TiDELUSt 

LI#1 4 

B t*2 

KEyERRl equ * 

LIM 3 MESSAGE CODE F&R tLATpRf 

LI#7 o CANNED MESSAGE C»DE 

BALjU 9CQUEUE eUTPTUT MESSAGE 

*©# mfssaQej eh 

*8» 



HOI 



im; 


i! ! 


SEP 08# 


f 7R 




4* 










5# 










6* 










7# 










8* 










10* 










11* 










12* 










13* 










14* 










15* 










16* 










363 










364 


01 


0006b 


32800019 


N 


365 


ol 


0006C 


aabooooo 


X 


366 
367 




01 


000^0 




369 


01 


0006o 


aSOOOOOO 


X 



MfANINGJ UNRECOGNIZED &PERATftR KEVIN SYNTAX 
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*ft# 
♦ ft* 

*e# ACTION! RE»TRY T"l KEYIN 

*©• message: later 

*a# 

*©• meaning? either t h e system is unable tg process t w e ope r atoR 

*0* KeYjN AT THIS TI«E 0** IN RESPONSE TO A 'REVEST* 

*8» KEYIN, THE REQUESTER U N I T * S * N U^Et 

#9« 

•e# ACTION; RE»TRY THE KEYIN (SPECIFYING A DIFFERENT UNIT IF T W IS 

*0# WAS A 'REQUEST 1 KeYINJ. 

#####*#####♦##*•♦*»***#♦*****♦♦******#»#**#*******♦******************** 

* 

L W j8 yOl TRIgqER AN8THER C0p Y 

BaLjII CTRIG OF KEYIN 

* 

keyinr equ • 

B TlD^lUS EXIT Tft STEP LOGS SELF OFF 



"01 



17*4; 


2 SEP 08' 


t7$ 




580 








582 


01 


000*£ 




583 








584 








585 








586 








587 








588 
5g9 














590 








591 


Ol OOQ6E 


731Q0000 


X 


592 


01 OO06F 


A«00006D 




593 








594 








595 








596 


01 


ooo 7 o 




597 








598 








599 








6 00 








601 








602 








603 








604 








6q5 


ol 6oo7o 


^2600000 


A 


6q6 


ol noo7i 


75600000 


X 


607 


01 00072 


A800006D 
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page: 

K8BF EQU $ 

*f# name: kbbf 

#F# 

•P# PURP8SEI T8 PROCESS THE i©B8FFf KfYlN. 

*F# 

*F« DESCRJPTI8NI INCREMENTS SSTAT. 

* 

MTb#1 SSTAT 
B KEYINR 
* 

K8BN EOU * 

*##♦♦♦*♦♦♦####*•♦###♦##»♦♦*#♦#♦####♦♦#♦#######*#•«###♦♦######**#***#*** 

•F # NAME! K&BN 

•F# 

*F# PURPBSE! T© PRbCE^S THE 'BRSN* Kg;YlN t 

♦ F* 

•F# OESCRJpTISNj Z ER?ES SSTAT, 

• 

L!#R6 
STB*R6 SSTAT 

B KEYINR 



HOI 



17 1* 

I* 
2« 

3* 

4* 
5# 
6* 
7# 

8 # 
9* 
10* 
11* 
12* 
13* 
14* 
15* 
1* 
2* 
3* 
610 
611 
612 

613 
614 

615 
616 

617 
6l8 

6*9 

620 
621 

622 
623 

624 

6?5 

IS* 

628 



2 SEP 0*J »7r 
01 000 7 3 



01 00073 

01 00074 

01 00075 

01 OO076 



S>2600000 A 

3!§ 6 OO000 X 

92600000 N 
*800007e 



01 00077 



01 OOO77 
01 00078 
01 00079 



p2aOO000 N 
$5600000 X 
*800007C 



01 000 7 A 
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PAGE* 

ENTINT EOU * 

• ♦#**##♦#»#####***#*###♦***#*♦*#***#♦###♦#*##**•***#***#****♦## ♦-******* 

*F# NAm^S ENTINT 

*f# 

*F# PURP6SEJ T8 PRSCESS THE tlNTi KEYIN, 

•f2 D r SCRlPTI6N? VALIDATES SPeCtFI E D SYSIO »R SHeS? J»» Na^E' 

*T* ACCOUNT AND RE P 6RTS AN &ICBK EVENT 6N THE Us£R» 

##♦##*♦#♦♦###♦*########♦#**•**#***•**#♦♦♦#♦#******«**♦*****»**#******** 

* 

LI#& 
STW*6 JSCCBuF 
LU* ElCBK 

B k1ER*&*1 

* 

♦ 

KlA B ©RT EnU s 

*#####♦♦#♦#♦♦♦*•#**#*«•♦##****•##**#*#♦*##»#*«**#*»##****#****###***#"*** 

*f# name: . kiabgrt 

*F* 

*F# pURp&SE? T6 pRSCESS THE »A R 8RT» AND 'X* KEyl NS » 

*F* 

*F# DESCRIPTI0NJ VALIDATES SPECIFIED SySlD &R QH0ST JBS NAME/ 

*F# ACCRUNT AND REP6RTS AN E t ABRT EVgNT &N THE USE*f 

*######*♦♦#♦##***##♦*♦«♦***#*♦*«*****###*##*******#****************♦*** 

LI, 6 E'ABRT AB8RT fVfNT 

STW*6 J^CcBuF 
B KIERRBR1 

* 
* 

K lERR9R EC3U * 

*##*»♦#*«##**#****#*•##•♦•**#***•****#«♦#♦*#♦«****************#********* 

*F# NAMES KIERROR 



HOI 



17142 

629 

630 
63l 
632 
633 

634 

1* 

g# 

3* 

4# 

5* 
6* 
7* 

a* 

9 # 

10* 

11* 

12* 
13* 
14* 
15* 
16* 
17* 

l9» 

20* 
21* 

22* 
23* 
24# 
25* 
26* 
27* 

28* 
29» 

30* 
3l* 



SEp Q&$ »75 



*F# 

*F* 

*F» 
•F* 

*F# 

*D# 
*D* 
*D* 
*0* 
*D* 
*D* 
*0# 
•D# 
*D* 

*D* 
*D* 

*D* 
*D* 

*D* 

*D* 
*D» 
*D* 

*D# 
*D* 
*D* 
*D# 
*D* 
*0* 

*D* 

*D« 

*D* 
*D# 

*D* 

*D» 

*0* 

*0# 
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PURPOSE: T& PROCESS THE fERRBR? AND fE» KEYlNSt 

DESCRIPTION* VALIDATES SPrC?Fl£D SVSID OR GHOST JOB NA*E' 
aCCqUnt AND Re^BRtS AN E*E* R E v ENT BN THE UseRi 
*♦*##•#♦#***#####»#♦*♦•##**•**#♦♦♦♦*##*##«#♦»♦*###♦#*#*#****#♦*** 

name: kIErrbr 

ENTRYJ KIABORTj entint 

CALLj KEVIN FO«MAT: • « 



lERRORl 

IE I 

w m 

» • 
UBaRT! 



INT 



ISYSID 
« I NAME* 
iNAME.ACCaUNT 



mm 



input: R7 « adr of keyin parameter list 

PLHJSID 
S^JOBjBL 

SJQJ8BAC N 
SBJGJOBUN 

OUTPUT* NONE 

RFGlSTERSl ALL A*E VULNERABLE 

INTERFACE* GK T FLO, CVSYSID, GETTER*, T*RU E 

ENvfRNOMENTJ MASTER/MAppED 

DESCRIPTION* GKlFlD IS CaLL f O T© OBTAIN T^E SPEClFi r D SY$fD 



HOI 17142 SEp 08# »7* 
32» 
33* 
34* 
35« 
36* 
37* 
38* 
39* 
40* 
4l* 
42* 
43* 
44* 
45* 
46« 
635 

636 01 0007A 

637 ol no07B 



638 
639 

640 
641 
642 
643 
644 
645 

646 
647 

648 
649 

650 
651 

652 
653 

1* 
656 

657 



01 
Ol O007c 
Ol 0007D 
Ol O007C 
01 O007F 
Ol O00 8 
Ol 000 8 1 
1 00Q 8 2 
1 00083 

0* 00084 
01 O0085 
Ol 00086 
01 000«7 
01 00088 
01 00089 

Ol 60O8A 
01 0008B 



?2600000 N 
35600000 X 
000?C 

331E0000 A 
P3F00007 A 

aABoooSo 

698qo0 6 6 
*l 8 000* B A 
^83q00 98 
^ABqqQOO x 
A 9800066 

33000000 X 
*930008p 

^2700000 N 
512^0000 x 
A830008F 
^4700087 

*2700000 N 
712EO000 X 



*D# 

*D# 

*D* 

*D# 

*0* 

*D* 

*D* 

*D# 

*P# 

*D# 

*p* 

#D« 

*D* 

*D* 

*«#*♦♦♦ 

• 



8R QM8ST JOB NAME, IF A SYSID WAS" SPECIFIED, C 
IS CALIE& T8 CONVERT IT T© H EX, IF THIS IS AN 
KgYiN THE PARTITI8 N TABLES AND GM8ST J8B TABLES 
ARE SCANNED T8 VERIFY THAT THE SYSID BeONQS T» 
ACTIVE BATCH 8R GH6ST JBB, IF A GHOST JGB NAME 

D C LiMjteR IS A »,'), GKlFtD IS 
Tm^ ACCSUNT (IF SPECIFIED) AND 
VAUtDATED yl* THE qH8ST jB b TAr 

getuse*# is called T6 CONVERT T 

# AND t*RU E IS CaIL-E T& Re p **T 
FeLL»WING EVENTS* 
ElEHR (IF tERR9ftt/tE v KEYIN) 
pIABRT (IF lARBRTf/tXt KEYIN) 
£JC»K (IF »INT f KE*IN> 
#♦##*##****#***♦#♦****-»***♦*♦•♦*#«*#♦******#******#***♦********* 



SPECIFIED <lEt# 

again t6 obtain 
name/account is 
in eithe* case* 

SYSID t8 A USE* 
THE 
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VSYSID 

f INT* 

AN 
WAS 
CaLLeD 

The 

tESt 

he 

©N£ © 



KJERR9R1 



KiERia 

KIER13 

* 



LIj6 
STWj6 

EQU 

MTW*1 

MTB**1 

BALjU 

BCS*8 

CI#8 

BE 

BALjU 

BCS#8 

MTWjO 

bnez 

LI#7 
CH#g 

BE 
BDR*7 

lis! 
Cfljg 



EJERR 
JjCCBuF 

S 
0*7 

#7 

GKIFLD 
KEYERR 
«•' 

GNAME 

CVSYSID 

KEYERR 

JJCCBUF 
KlE R 15 
LPART 
PLHJSID#7 

KIER15 
KIER1? 

MAXG 
SBJGJ8BUN # 7 



ERR8R EVENT 

RFMQVE »i' as delimiter 

GET ID 8R GH8ST NAME 

GH8ST NAME 

CftNVERT T8 HEX IN Rg 



CHECK F8R QH9ST J8B 



HOI 17J42 SEp 08/ 

658 01 0008C 

659 01 nOO^D 

660 01 OOO 8 * 

661 01 

662 01 0003? 

663 01 00090 
66* 01 00091 

665 01 00092 

666 01 00093 

667 01 00094 

668 ol O0095 

669 ol 00096 
6?0 01 OOO97 

671 01 

672 01 00098 

673 01 00099 
67* 01 OOOQA 

675 01 O0098 

676 Ol OO09C 

677 ol 00090 

678 01 n0Q9E 

679 01 0009F 

680 Ol OOOAO 

681 01 OO0A1 

682 01 OOOAg 

683 01 OOOA3 

684 ol 000 A * 

685 Ol OOOAg 

686 Ol O00A6 

687 01 OO0A7 

688 ol 000*8 

690 01 000A9 

691 01 OOOAA 

692 01 

693 01 OOOAB 

694 01 OOOaC 



»7«5 

A830008F" 
A*7qoo8B 
* 8 000066 

000* F 

91200000 N 
$9100066 
32900006 A 
32600002 A 
AA700000 * 
A 80000 6 6 
32600009 A 
* A &00000 * 
^SOOOOfiD 

000*8 

S2CE0005 A 
32DEqqq6 A 
»5C00l7g A 
322E0004 A 
91200007 A 
^9200066 
7520000C A 
12E00000 X 
MB00050 

322E000* A 
A83000A9 
?1200008 A 
* 9 2Q0Q66 
J»l8000l5 A 
*9300066 

S2EE0Q05 A 
32FEoqo6 A 

000A9 

92200000 N 
AD0OO037 A 

OOOAB 

11C40000 x 
*830O0B0 



BE 

B0Rj7 

B 

KIER15 Ef3U 
CI#2 
BL 

LW#9 
LW#6 
BAU7 

a 

LWj6 
BAUll 
B 
GNAME equ 

LW*i3 

SLD,1 2 
LW#3 
CTi2 
BG 
STB j 2 

Ln#14, 
BaLjH 
LWj2 

bez 

CI*2 
BG 

CIi8 

B^E 

LWj14 

LWm5 

defaultgacn eQU 

L T ' 2 
DISABLE 

CNKGNAME EQU 

CDj12 

Be 



KIER15 

**2 
KEYERR 

t 

MING 

KEYERR 

6 

2 

GETU$ER# 

KEYERR 

9 

TtRUK 

KEYINR 

t 

KPLBf? 
KPUB*ii7 

K?L*7 

7 

KEYERR 

12 

SYSaCCT 

GKIFLD 

DEFAULTQACN 

8 

KEYERR 

X*l5» 
KEYERR 
KPIB/7 
KPIB*ij7 

MAXG 
SIGJ0BTBt # 2 

ch*Gacn 
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DftNT ZAP KEYN,aLU8CATjRBBAT 



GFT ACTIVE USER # 



REP&RT ERR6R OR AB8RT EVENT 



0H9ST NAME 

make rs»m fqr ceUNy 

C6UNT 

QM8ST NAMES MUST BE 7 &R LESS 

TFXTC 

assume isys 
Get account 

COUNT 

USE OEFAUlT 

ACCOUNT MUST Bg 8 OR CESS 

CR 
ACCOUNT 



SigjBbtbl size 



M AT CMI CMgCK A CCBUNT 



HQ1 



17: 


42 SEP 08' »7r 
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01 OOOaD 


C8NTUQSRCH EQU 


* 




696 


01 OOOAD A*2000Ab 


BDRj? 


CMKqNAME 


m MATCNj C9NT!NUE 


697 


01 OOOAE A&000027 A 


ENABLE 






698 


01 000 AF * 8 000066 


B 


KEYERR 


N9 SUCM (3H9ST 


699 


01 000*0 


CHK6ACN EQU 


$ 




?8? 


81 888b? iJ!S8828 x 




SI0J8BACN,g 
CeNTUGsR C N 


KRBNQ A cc O^NTJCeNTlNUp 9gA RCw 


702 


01 O00B3 78240000 X 


Lr#^ 


SbJqj» 8 U n *2 


10 


7q3 


01 OO0B3 6D000027 A 


ENABLE 






7Q4 


01 000 B 4 A800008P 


B 


KIERjs 
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HQl 17W? SEP OS* *7r 
705 

7o6 01 000*5 

7Q7 
70S 
709 
710 
711 
712 
713 
714 

715 ol O00B5 

716 01 O00B6 

717 01 OO0B7 



32000000 A 
AABOOOOO X 
A8000060 
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PAGft 
XISTART EQU * 

•#♦##*#•*####♦#*#♦»**##»##♦*♦####♦•«♦♦♦#*»#*#####*#••♦♦#####«**♦##•#♦*#* 
*F# NAMpI KISTART 

*F* 

#r # purpose? re process the »$tart» and tst kevins, 

*F* 

»F# DESCRIPTIONS CAUS TJBTSCMgD JB G»»S| RB&AT. 

* 

L!#R0 

BAL«H TjBTSCMED 

B KEYINR EXIT 



HOI 



\7H 
1* 

2* 

3* 
<f* 
5* 
6* 
7* 
8* 
9* 

to* 
n* 

12* 
13* 

}<►* 

15* 
16* 

17* 

18* 
19* 
20* 
21* 

22* 



2 SEP 08' «7r 
01 000R8 



01 OO0B8 

01 00089 

Ol OOOBA 

01 OO0B8 



ol nooBC 



128000BC 
93800041: A 

»2l0000l A 
AE82004E A 



f>0*0006E N 
10000000 
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page 

KjDELT EQU * 

*##***»#*#**##*******»***************♦*#***********#******************* 

*F* NAmEI KiDELT 

*F* 

♦F* PURPOSE* JQ DRIVE T© EXECUTIVE DELTA VIA AN OPERATOR KgYlN 

*F« 

*F* D E SCRJPTI0NI SIMULATES AN E*U »* X»4E' ^IT* jH£ RETURN Q8IN3 

*F* T 9 KEYlN«« 

*###♦«♦#»#*#*#****#**♦************#***»»#*#*****#********************** 

* 

LD'R* dl t p s d 

STD.R8 »XUEf SIMULATE AN XPSD INSTRUCTION 

* SINCE DELTA WILL TAMPER WITH IT 



LIjRI 1 

L pS Q ,8 #xHE!jRI 



*«#q& T8 oE^TA«#* 



oftUMD g 
DLTPSD t P9D (IA,KEV!NR*i, J (WK,l)jMAPjMA3TER DELTA WILL DECREMEN 

* INSTRUCTION ADR 



HOI X7l^tl SEP 08* »7* -> ,* 6 * 

719 PAQE TMfS c®DE PROCESSES THE tTASK* 

7*2 01 OOORE *IGJ8B EQU $ 

743 *•##»##**•##»#*•♦«#*#♦♦#••*•*#*••###♦##«■#*#♦«#*###♦#*♦*#*#*•#***♦**#**» 

744 *F* NAME I KIGJOB 

745 *F* 

746 *F# pURp&SEl TO pROCESS THE ^jO^t KEyI N « 

747 *F* 

748 # F# OrSCRlPT!BN| VALIDATES TMg GHOST JOB NAM^/ACCOUNT/ReSOURCe AS 

749 *F» SPECIFIED AND CALLS TiGJOBSTRT Or TJGJOBR DEPENDING 

750 # F* UPON THE FORMAT 9F THE <EYlN« 

751 ##♦♦#»##*♦#####*•»*#♦•##♦♦#****###*#♦♦##♦#♦#*«♦###♦#*«♦##♦###».♦*•♦♦♦»*♦* 
I* *D# NAME* KIGJOB 

2* *D* ** • »** «• 

3* *D* CALL* KEYiN jr6H M AT| QJ8B Na^E I • ACC®U N T1 I j RES»uR(*E»NAmE | 

4* *D* •• ■*••• »«• 

5* *D# INPUT? R7 . ADR OF KE*IN PARAMETER LIST 

6* *D* SVIRSIZ 

7* *D» SHJRNM 

8* *D* 

9* *D# REGISTERS? ALL A*E VULNERABLE 

10* *D* 

11* *D* INTERFACE! GKlFL^' t *GJ8BR4 T|qj8BSTrTj Oc^U^ 

12* *D* 

13* *D# ENVIRONMENT; MASTER/MAPPED 

14* *D* 

1 5 * *0# DESCRIPTION! GK^LD JS CaLLjtD t8 OBTAIN T H£ NAM r <MUgy H <m 

16* *D* 7 CHARACTE R S AND /t"»KeVJN»>t l? THE NaM*^ DgllMlTE 

17# *d« is a carria q e Return* ti 6 j8 B 3trt is called, otherwJSi 

18* *0# QKIFLO IS CALLED T8 8BTAIN TNg ACCOUNT AND/8R ReSQURCi 

19* *D# AND TlGJ®B R * s CALLED. IF THE qH8ST j8 b WAS ALREaD Y 

20* *D* ACTIVEj ?R WE WOKf HIM UP, OR THg GHOST JOB TABLES 

21* *D# WgRg; FULL, AN APPROPRIATE MESSAQp IS SENT TO THE 

22* *D* OPERATOR VIA ©COUeUe, 

23# *##♦#♦######*##*«•##•##••»*#**•*#•#*##*#•#♦•#*###*«**»*•#**##•♦•*•*#♦** 

• 

733 01 OOOBe S 3iE 0000 A MtW,1 0,R 7 R|rM8V£ 'I' AS OeLiMjte* 

754 Oi OO0BF F3F00007 A mTb*»1 *r7 
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755 

756 o 
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759 
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761 
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764 
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766 
767 
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769 

770 

771 
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774 
775 
776 
777 
778 
779 

7gi 

782 
783 
784 

85 
86 
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787 
788 
789 
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OO0C2 l2AE°°04 A 
OO0C3 ?U00007 A 
O00C4 ^9200066 



HOOCs 
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O00C7 
O00C8 
O00C9 

dooCA 

qqqCB 

qoocc 

OOOCD 

oooCe 
oooCF 

000 D 

ooo£i 

no002 
O00&3 

aoo£* 



000^6 

6oo^ 7 

OOOD9 

oooda 
600D8 

000 Dc 

01 

ooodo 
600DE 
000DF 
600E0 
600^1 



H?0E0005 A 

321E0006 A 
1I00000A 
68300Q66 

^5000178 A 

75AQO0OO A 

?1 8 00015 A 
^SJOOOEA 

02200020 a 

09000000 N 

*180004B A 

A$3ooO E 2 

12 C OOOOQ x 
?18Q006B A 

^9300066 

6AB 000 5 
698qoo66 

32 a Eqoq5 
?5A 00 #? 

*?20Q00g 
s lA4 6Q o0 

6830O0D0 
A42000D9 

_ **000066 

°00 D 

02200020 A 
oAOOOOOO N 

aAAqqOOO * 
*8FoOQ6D 

A*0000 EC 



BAliU 
KIQJ8B1 BCS,8 

LW#10 
CI'10 
BG 

LW,Q 

LW*i 
C0#0 
BE 
SLD#R0 

STBjRIO 
CT,R8 

BE 

PUSH 

CI#R8 
BE 

LD4R12 
KtQj8B? CTiR8 
BNE 

BAL*Rli 
BCS«8 

SASjRlo 

LT#R2 
CH # RlO 

Bg 

BDR*R2 

B 

kisj8b3 egu 
pull 

BALjRIO 
BCRj ^5 
B 



keyerr 

KFL#7 

7 

KEYERR 

KPLB, 7 
KPi B*l*7 
KEYIMQ 

keyerr 

• 8 
R0 
X«15* 

KIGJ8B5 
2 # R0 

ft f 

KIGJ8B4 
D8UBLE*E R 8 

keyerr 

GKJPLD 
KEYERR 
KPLBjR7 
•16 

SVIRSIZ 

SHIRNM # R2 

K|QJ8B3 

$«2 

KEYERR 

* 

2#R0 

T|GJ8BR 

KEYINR 

KIGJ8B6 
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QPT TASK NAME 

ERRBR RETURN T8 USER 

NAME 1 7 



QpT TASK NAME FR8M BUFFER 



DftNT START 8URSELF 

P8SITI8N FUR 9 yTE 

CBUNT INSERTION 

FIELD TERMINATE BN NEW LINE 

YFS . 68 START JSYS Gj8B 

SAVE THE WeB MA M E 

IS THE DELIM A D8T 

YEP 

ZAP ACN field 

WANTS T8 PASS A RESOURCE NAME 

CANT FIGURE &UT WHAT T& 08 HERE.t 

GET RE68URCCE FIELD 

ERR8R 

GET RES8URCE NAME 

p8siti8n f8r search 
Find name in tables 



INVALID INPUT 

RFS^BRE QU8B TexTc nAhE Fr»M STACK 

and start the ghbst up 
n8Rmal return 



HOI 17J42 $EP 08* »7B 
790 
791 
792 

793 01 

794 01 nOOES 

795 01 000£3 

796 01 000|4 

797 ol 00Q E 5 
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798 
799 

800 
801 
802 

803 

So* 
8o5 
806 

8q7 

808 
8 9 

810 

811 
812 

813 

Si5 

8 X 6 

I* 

2* 
3« 
4# 
5# 

6 # 
7# 

8# 

9* 

10* 



81 88© 

01 60OE8 

01 600E9 

01 

01 OOOEA 

01 000EB 

Ql GQQ E £ 

01 OOOeO 

01 OOOEE 

01 000EF 

01 600^0 

01 6oo F i 

01 600F2 

01 O00F3 

01 OOOF* 

01 000^5 

01 000 F 6 

01 000 F 7 



000p2 

^AB00050 

^9800066 

0?gQ0020 
pACIoOOB 



S?f888?§ 

*83000DD 
*»80000D? 
OOOrA 

^AAOOOOO 
A8F00O6D 

&888ti 

^2700000 
7020000A 
* 9 2000F7 

32100100 
?020000A 
A9*000p7 

P2100105 

7020000A 
<*»88qoo6D 

A AB 00000 



KIQJ8B4 



KIGJ0B5 
KIQJ8B6 



GATHER ACCOUNT NU^qER pASSED 



KIGJ8B7 

######*♦ 
♦8* 

*2* 

♦e# 

•e# 
♦e# 

*8» 



EGU 

ba^jrii 

BCSj8 
LCI 

LM#Ri2 

LI*R? 
C !# R8 

B* 

B 

EQU 

BAL*R10 

BCR*i5 

STCF 

Ll,Rl 

LI*R7 

LC 

BCS*£ 

LIjRi 

LC 

BcS** 

Lf*Rl 

LC 

BCR*8 

BALjRll 



i 

QKlrLD 
KEYERR 

2 
KPLBjR7 

§»1S» 

KlQj8B3 
KIGJ8B2 

T|GJ8BST R T 
KEYINR 



si§i 



'BUsY 


RIO 

KIGJ0B7 
GJ9BWAKE 
RtO 
K!GJ»b7 

GJ8BFULI 

KETINR 
BCQUEUE 



GET rllLO 

err9r return 

get account number from suffer 
Reset index flag for t»8v 

FjfLD TERMINATE ON NEWLjNE 

yES • s° START THE Q H8ST 

NO • 68 EXAMINE F8R RES8UCE NAME 

START 1 SYS GH8ST J8B 

SAVE C8N0ITI8N C8DES FR8M TlOV 
ASsUMM r GH8ST A^EA^Y aCt^E 
N8 OCT T8 TypE BUT 
TEST ASSUMPTION 
TRUE 

maybe we woke it up then 

DID WE 
vES 

8NLY 8NE LEFT 
ARE TH TABLES FULL 
DSNT KNOW WHAT T8 SAY 
WRITE 8UT MESSAGE 



**##♦####*###♦*»##•##**####♦##*♦♦##**«####♦#**#*###♦♦* 



message: task currently active 

MEANINqs S j9 B KEylN REFERENCED A cUR r ENTLy»A C TIvE QW8ST J8 B 

ACTI8NI N8Ne 

MESSAGE? TASk AWAKENED 

MfANlNG? GJ8B KgYjN ReFeReNC^D a SLeE P ING GHOST JOB 



HOI 
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SEP 08* • 


1% 
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12* 










13» 
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15* 
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18* 










1 9 * 










20* 










21* 










818 
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OOOF* 


A800006D 




819 




oi ooors 
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01 


000^9 


\ B 
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O00F9 1 


f>§ 


A 




01 


000^9 2 


Sv 


A 
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00QF9 3 


»c 


A 


821 


01 


OOOFA 


r3ClE2D2 


A 
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OOOFB 
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A 
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A 
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A 
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OOOFF 
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0000001 B 
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01 OOlftO 




824 


01 


00100 A 


l3 


A 
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OOlOO 1 


o5 
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01 


00100 2 


RC 


A 




01 


OOlOO 3 


*C 


A 


825 


01 


00101 


F3C1E2DP 


A 




01 


00102 


*°E l K£ l 


A 




01 


00103 


D2C5D5C5 


A 




01 


OOlO* 


r^o^o^o 
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826 
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01 00168 




828 


01 


noiOi 


13 


A 




01 


60105 1 
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*8* 

*8* ACTI0N* NONff 

*Q*#*####*#»##****###**# ##*#»##♦♦#»##♦###♦♦♦##♦### #####♦♦####♦###♦*###* 

*fl* mFSSAGES TASK TABLES FULL 

*Q* 

*©# M rAMlN G J GJ 8 B kEY Xn ATTEMPTED w ME^ THE MAXIMUM pSSSlRLE * 

*d* 8F QM8ST J8BS WgRgr ALREADY ACTIVE 

*»• 

♦6* ACT!0 N ? RE»T*Y T h E KEYIN LATER 

*##*#«•#######****♦*#**#«*»#*###*##♦##♦#♦*##*****#♦#*###♦♦***♦*****#*** 

* 

B KEYlNp 

GJSBUSY EQU * 

DATA, 1 G JOBUC s X » 5 f t X • 5C t m X 1 5C t 



TExT 



tTASK CURRENTLY ACTTyft 



GJ8BUC EQU 8AUUBA<GJ©BUSY>*t 
GJGBWAKE EOU • 

DAT A ,\ G JSBWC* X • 5 ' s X » 5C ' * X » gC » 



TEXT fTASK AW*KENED» 



GjftBWC EqU BA(*).BA(GJ8BWAKE)»1 

QJ9BFULL EQU $ 

DATAjl GJ9BFC#XJ 5 , #X'5C»,X'5e» 



HQl 17*42 SEP 08* f 7«J 68 

01 O0105 2 rC A 
01 00105 3 RC A 

829 01 00106 F3C1E2D2 A TPXT iTASK TABLES FULLi 
01 00107 *0E3C1C? A 

01 OOlO* n3C5E24o A 
01 00109 f6E*D303 A 

830 00000013 QJ9BFC EOU BA($).BA<GJ8BFULLl»i 



M01 



17 
831 
833 
834 
835 
836 
837 
838 

839 

840 

841 

842 

843 

844 

845 

846 
8*7 

848 
849 
85o 
851 
853 
854 

855 
856 
857 

858 
859 
860 
861 
862 

863 

864 

865 
867 
Boo 

869 

870 



142 S E P 08' >7r 
01 OOto* 



Ol OOlOA 

01 OOiOB 

01 OOlOC 

01 OOiOD 

01 

01 6010E 

01 OOlOF 

01 OOllO 

01 00111 

01 00112 

Ol 00113 

01 00114 

01 00115 



»2§FFFFE A 
35500000 X 

J>2500000 N 
*H600000 N 

720AO0OO X 
PlOOOOOO N 
68300116 

? 1 S FFFFF N 
68200116 

09500000 N 
6AB00000 * 
D8500000 N 



01 ooiu 

01 00116 6450010D 
01 00H7 



NAME! KIFD8WN 

PURPBSEJ T8 pRSCESS THE tjApt kEyIN, 
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PAGE 

KJFD8WN gnu * 

*F# 
*F* 
*F# 

•F# 

DprSCRlPTI9NI FeR^S ALL USgRS »FF BY R E P»RTINQ A N cUBRt F v E^ 
9N EACH ACTIVE U$ER tlWtPj SYSTEM 6h&STS>J SETS 
SlOUAlS AND SJBUAIS T» ZER&I SIMULATES AN tR a x» <EYl 

if pfMBTE batch is active and simulates an »xcpu» 
kEyin if this is a multiprocessing system. 



•F# 
*F# 
♦F# 

*F# 



ZAPjq 



ZAP20 



LIi5 
STw*5 

LI#5 

LI #6 

EOU 

LBjO 

CI#0 

BE 

CliS 
BL E 



USH 
AUll 
PULL 



EQU 
BDR'5 



•2 

q88d n 6 t 

SMUIS 

EjABRT 

* 

UBlUSj5 
SNULL 

ZAP20 

MIN8.1 
ZA p 20 

TfRUE 
5 

$ 

ZAP10-X 
KIQD8WN 
$ 



«»*SAvr symb p*l es 

ARBRT C»DE 



<SMK) CHfCK FgR KtYNjALL©C!AT#RBBAT 

(dbn't w aNt t8 zap eitHe«> 

AB0RT HIM 



. . fall thru tg *»ff« kevin 

KIqD8^N EqU 
###♦##»♦«*#♦#♦**♦#*####♦#••#*♦#*#**♦*#«#######*#*###**#*#♦####♦##*###** 

*F# NaMeI KIQD8WN 

*F# 



HOI 17142 SEP 08* »7s 70 

871 *F* PURPeSEl t8 PRSCE&S TME fBFFt KEYIN, 

872 *F* 

87 3 *F* DrSCRlPTIBNI ZE Re ES SS8UAIS AND StBUAISJ SIMULATES AN f *BX* 
87# *F* «EVi N IF REMOTE BaTcm IS ACTIVE AND SIMULATES AN 
875 *F* fXCPUt KEYIN IF THIS IS A MULTIPROCESSING SYSTEM, 

%JL *##♦##♦###*###*******##♦***##******###*#*♦#*#***»*♦***********#******** 

1* *D* NAME? KIGD8WN 

2* *D* 

3* *D* ENTRY* KlFDOw N 

4* *D* 

5* *D# CALLj KEYIN Fe«MAT| 8FF (KIQD&WN) 

6* ♦D* ZAP (KIFD8WN) 

/# *D* 

8* *D* 6UTPUTJ SI9UAIS * 

9* *D# SIBuAIS * 

10» *D# G88DNGT * -2 (IF tZAPM 

11* *D* 

12* *D* REGISTERS! ALL ARE VULNERABLE 

13* »D« 

14* *D* INTERFACE; T|RUE 

15* *D* 

1 6 * *D# ENVIRONMENT* MASTe^/MaPPeD 

18* •81 DESCRlpT!8N| S*BUAlS & S! B UAIS ARE SET TB ZEWj »R B X' AND 

19# *D# »XCPUt KCYINS ARE SIMULATED IF APPRBPRlATEi 

20* *D* ADDITIBNALLY, IF WE ARg PROCESSING A »ZaR» K&YIN, 

21* *D* ALL USERS ARE AB8RTFD VIA T*RUE (EUBRT)j AND 

22* *D* GB0DN8T JS SET k T© ••*» AS A r UG F»R S^MED t8 

23* *D* SrREErW *S S88N AS All USERS EXCEPT A^LOcAT K RBBAT 

24# *0» ARE BFF AND ALU SYMBI8NT FfLES HavE BEEN PROCESSED, 

g5 # »«##♦*##♦♦#*##***##♦•####**#*##****##♦#«**********#**********#********* 



* 



877 

878 01 6OII7 &2000000 A LI#° ° 

879 01 00118 35000000 * STW,Q SI8UAIS 

880 01 00119 35000000 X STWjO S'BUAIS 

881 01 OOllA P2100000 N LI#1 NSCpU 

882 01 OOllB A830011E BEZ *+3 



^01 17U2 SEP 08' »7r 

O0UC ?23oo001 A 
OOllD <**000lBl 

OOOOOOftl 
OOllC 92300000 N 
0011F *930056F 



883 


01 


884 
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885 




886 


01 


887 


01 


888 





889 ol 00120 



*800006D 



LI#3 


1 


BALj 


KXCPU? 


D8 


RBC8DE 


LI #3 


BFF8IT 


BNEZ 


KRBXl 


fin 




B 


keyinr 
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IF PB SYSTEM ZaP INCLUDES IMPLICIT 

PBX, 

i 

I 

IF N&T EXIT 



HOI 17UI2 SEP °6' f 7S 7 2 

flon PA GUT 

892 01 00191 KtGBUP tQU » 

g93 ♦*♦♦**##* #♦♦###*•*♦*♦####**#*#*♦*##»•##•*# #♦*## •######«•#**•* *##*#•*»♦* 

894 *F# NAME* KIGBUP 

895 *F# 

896 * p * PURPBSEJ TG pRfiCE^S THE »8n B * KEYIN 

897 *F# 

898 # F* DrSCRlPTISNI S£TS S5BUATS T* KgVED.IN VALUE AS l9Nfi A S IT 

899 *F# D&ES NOT CaUSE S*ftUAlS*S»BUAlS*S»GUAl$ T© EXCEED S m ^I 

900 »♦#♦####♦♦♦#♦#♦*########***♦###*»##♦**♦♦**♦**»#**##♦*##*#####♦*##**♦*** 

901 * 

902 01 no!2i 33100000 X MTWjl jICCbuF 
^03 OX 00122 *8000127 B KIQB 
9p4 * 

9°5 * 

9 6 * 

907 Ol 00ls»3 KIQUP EGU • 

908 *«#♦*♦#♦•*#♦##»•*#*#♦ ♦###*•«»#♦*«**♦#*##»*#*♦♦##•####• #####♦»♦###•♦♦*** 

909 *?# NAMEJ KlQUP 

910 # F# 

911 *F* PURPeSEJ t© PR8CESS TWE »eN» KEVIN 

913 *F# OpSCRIPTiaNi VERIFIES THAT C»C IS pRESE^T THEM SETS Sj8UAlS T 

914 *F« KEYED.IN VALUE AS L»NG AS IT D&ES N8T CAUSE 

915 *F» S|8UAIS*SjBUAIS*S,6UA!S T» EXCEED SMUIS 

916 #•♦*•####♦##*######*######•#•##*##•#•####••###•#•*##♦»##*#•#####**•**•» 

I* *D* NAME* KIGUP 

2* *D* 

3* *D« E^TRy 5 KlGBUP 

4« #D# •• •- 

5* *D* CaLLj KEYIN FSRMATi |8N | X (X v DECIMAL VALUE) 

6 * *D# lOMBi 

7# ♦p* •• •» 

8» *0* 

9* *D# INPUT R7 » ADR 6F KeYIN PARAMETER LIST 

10* *D* SIBUAIS, S«OUAlS # SJGUaIS 

11* *D# 



HOI 



17*4 

12* 

13* 

14# 

15* 

16* 

17* 

18* 

19* 

20* 

21* 

22* 
23* 
24* 

9l7 

918 

9i9 

9 2Q 

921 

922 

923 

924 

925 

926 
927 

928 
929 

93n 
931 
932 
933 
934 
935 
936 
937 
938 

939 

94° 



2 SEP 08* '7R 



01 00123 

OOlg* 
00l 2 5 
00126 

00127 



OOI27 
00128 

00129 
0012A 
0012B 
0012C 
0012D 
0012E 
0012F 
00130 
00131 
60132 
00133 
00134 



*2100000 N 

6§300066 
^2100000 A 
^5100000 X 



6ABOOO5O 
A9800066 



*20E0Q05 

P2100000 
P25FFFFC 

723Aqqo1 
»03FFF10 

A8100132 

P03000BO 

*8300l35 

A8000066 

?3l0000 A 
30100003 
A55Q012C 



*D* 
*D* 
*D# 
•D* 
*D# 
*P* 

*D* 
*0# 

*D* 
*0# 
*D# 
*D# 
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BUTPUTl SIBUATS * X (IF 8NB» 
S«»UA!S * X (IF 8N> 

RfqisteRsi ALL a k e vulnerable 

INTFRFACEi GKIFLP 
ENVIRONMENT J MASTeR/MaPPED 

OEScRlPTlBNl vERJf^S THAT C »C *$ PRESENT < t©Ni 8N LV ) AN D 
THEN SETS SjBUAIS (IF t8N6t) 8R SjOUAIS (IF t »Nf > 
T6 THE SPECIFIED VALUEi 



*IGB 



OCVgo 



0CV3Q 

« 



01 0013S ^2200000 X 



LI,R1 
BEZ 

LM 

STw*l 

RES 

BaL,1* 
BC S '8 

LW#0 

LX#1 

LT#5 

LB#3 

AI#3 

BGEZ 

AI*3 

BEZ 

B 

MI#1 

AW* I 

81R*5 

LW,3 



CGC 

KEVERR 


JJCcBuF 


GKJFLD 
kEyErr 

KPl-B'7 


*4 

1*5 

»X»F0? 

$*4 

•X»40»*X f F0» 

0cV30*l 

KEVERR 

10 

3 

OCV^o 
SQUATS 



SEE IP N8N.C0C SYSTEM 
B/N8T BN.LINE SYSTEM 



Get * bn.line users specified 

GET * 8N.LINE USERS SpEClPICD 



t»t bat and 8N line use r s 



HOI 



17142 ! 


3Ep 08# 


$n 


01 


00136 


942 


01 


00137 


943 


01 


00138 


944 


01 


00139 


945 


01 


0013A 


946 


01 


0013B 


947 


01 


0013C 


948 


01 


0013D 


1* 


01 


0013E 


2# 


oi 


0013F 


3* 


01 


00140 


950 


01 


oom 


951 


01 


001*2 


1* 


01 


00143 


955 


01 


00144 



13000000 * MTWjO JfCCBUF 

<s8300139 BfZ **2 

12200000 X LW*2 S*Bu A TS 

10200001 A AW#2 1 

,10200000 X AW, 2 SIQUATS 

P1200000 N Cij» SWUlS 

^9200066 BQ kEYERR 

13000000 * MTW,o JjCCBUF 

*830Gl43 Bg>Z *1 Q 1 

pilOOOOO N CTjl LPART 

A9200066 BG KEYERR 

15100000 X STW#1 SI3UAIS 

6^000144 B »*2 

15100000 X KI61 STW,1 S«»UAIS 

A800006D B KEYINr 
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ALLOWED MAY N0T EXCEED TBTAl 



HOI 17142 SEP 08* *7R 
956 

957 ol 00145 
958 

959 

960 
961 
962 
963 
964 
965 

1* 
2* 

3* 

5* 
6# 
7* 
8* 

9* 

10* 

u* 

12# 
13* 
14# 
15* 
16* 
17* 
18* 
19* 
966 

967 01 00145 

968 ol 00146 

969 01 00147 

970 01 00148 

971 01 00148 
973 01 00149 
973 01 00l4 A 



JP1800040 A 

683ool48 

A8000066 

6AB 000 5o 
*98 0066 
6 a BqoOOO X 



NAME! 

Call: 



KDlAG 

K^YlN F0«MATI DUG SVSlD 
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page 

KDTAG RES o 

*F* name* kdiag 

♦F* 

#F# pURpSSEl T* pRQCESS THE »Dl A S f KEylN 

*F# 

*f# D|?scripti»ni st» k eS the user * assbciates wi T m t h e specified 

*F» SYSID iNTft DID 

»###########♦«*•###♦**♦*##****♦»*#**•♦#*♦♦♦###»**#*»*****•**#♦*****»*** 

•D* 
*D* 
*D# 

*D# 

*D» INpuT? R7 i ADR »F KEYIN pARAf-iETE* LIST 

»D# 
*D* 
*D# 
•D# 

*D# 
♦D* 
»D# 
*D» 
*D* 
*D* 
*D» 

♦ D# STORES U S ER # INT» THE OIAqNOSTIc ID CE|*L <M0>« 

* 

CI#8 l t CMECk F»R LEqAL delimiter 

BE KDlAGi LEGAL 

B KEYERR NBT LEGAL* ERR9R 

KDTAGl RES 

BaLjH GKIFLD GET ID 

BCS*8 KEYERR 

BAL*H CVSYSID CONVERT T8 HEX IN R 2 



&UTRUT| DID « USER u &F SPECIFIED USER 
REGISTERS! ALL A«E VULNgRAlLE 
INTERFA C E| GKtFLO' cVSySId* QET u SER* 
ENVIRONMENT? MASTER/MAPPED 

DFSCRIPTI8N| CALLS GKJFLD TB GET THE SPECIFIED SYSIDj^CALLS 
CVSYSID 19 CONVERT IT FRBM EBCDIC T© HEXI CALLS 
flETUSgR* T& GET CORRESPONDING USe r *j AND FiNaLLY 
STaorc iji * " k * "" " ' 



HOI 



17S42 SEP 08* 



97* 
975 
976 

III 
978 

980 



01 
01 
01 
Ol 
01 
01 



6ol*B 
ooi^c 

00l*D 

6ol#i 

OOHF 
00150 



»7R 

*9800066 
S2600002 
A*700000 
^30000^6 
15500000 
^8000060 
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A 
X 


BCSj8 
LW#R6 
BAl,R7 


KEYERR 
R2 

GETUSER* 


**#• 


GfT USER * 


X 


B 

STw*R5 

B 


KfcYgRR 

DID 

KEYINR 




abn return, n& fnd 

SAVE ftiQjBR B tjSER * 
NftRMAL EXIT 



HOI 



17 1 42 
981 
982 
983 

9 85 
986 

987 

1* 

2* 

3* 

4* 

5* 

6* 

7* 

8* 

9* 
10* 
11* 

12* 
13* 
14* 
15* 

16* 
17* 

18* 
I9* 

20* 
21* 
22* 
23* 
24* 
25* 
26 # 
27* 

28* 
29* 

30* 



SEp 08# *7R 
01 001*51 



pURpSSEj TQ pRBCESS THE 'SEND! KEylN 
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PAGE 
KISEND EOU * 

*#♦##«♦###»##*****##*##♦***#******♦##♦##*##*«*****#♦***«♦#*#####******* 

*F* NAME? KISEND 

*F* 

*F* 

*F# 

*F# DpSCRlPTlSNI INITIATES T^ p ! Q E 0N G H &ST WMjCH WiLL t r A n SMjt 
*F* THE MESSAQE T8 Am uSErS 8p T8 A SPECIFIC uSEr AS 

*F* INDICATED 

**#*♦♦#♦#«#•******#**#*♦***********#*#♦#**#*#*****#******************** 

*D* 

*D* 

#D# CALL! KEYIN F&KmAT| SEND, I 10 I MESSA3E 

*D* I ALL I 

R7 ■ aOR »f k e yin Parameter USt 
c&c 



names 

CALL! 



KISEND 

KEYIN F* w MAT| 



*D* 

*D* 

*D* 

*D* 
*D* 

*D* 
*D» 

*D* 
*D* 

*D* 

*D* 

*D* 
*D* 
*D# 
*D* 
*D# 
*D* 
*D* 



INPUT* 

but^uti 



PUTS T W E PIQE© N GH8RT INT© E*ECUtI&N IF THpRp I s ANY 

MESSAGE TQ TRANSIT* I? 'ALL' *AS SPECIFIED* a 
♦HEADING* KEylN IS SlMULATfDt 



REGISTERS! ALL A*E VULNERABLE 

INTER p ACEI GKjFLP # T*GUeBsTRT, KiNiHDR, KlMVHDR 

ENVIRONMENT \ MASTER/MAPPED 



01 00151 
01 00152 



*2100000 N 
A8300066 



DESCRIPTI8N| IF THIS IS A TIMESHARING SYSTEM, AND A MESSAGE 
WAS SPECIFIED, TJGJ8BSTRT IS CALLED T0 INITIATE THE 
PlGEBNi ADDITIONALLY, IF fALLf WAS SPECIFIED, KIMVHD 
IS CALLED T6 SIMULATE A 'HIDING' K^YlN. 

♦♦a******************************************************************** 
* 

LI,R1 C©C is THIS A T/S SySTEM 

BEZ KEYERR NB 



HOI 



17142 
31# 01 



32* 


°} 


33* 


oi 


34* 


01 


35* 


01 


36* 


01 


37* 


01 


38* 


01 


39* 


01 


40* 




41* 


01 


42* 


01 


43* 


01 


44* 


01 


45* 


01 


46* 


01 


47* 




48* 


01 


49* 


01 


50 * 




51* 




52* 




53* 




54* 


01 


55* 


01 


56* 




57* 




58* 


01 


59* 


01 


60* 




6** 


01 



Sgp 08* 
60153 
Q01S4 

OOI55 
00156 
00157 
00138 
00159 
0015A 
OOlSB 

0015c 
OOlSD 
OOlSE 
0015F 
00160 
00l 6 i 

OOl^g 
00163 



*7r 

P180006B A 
^9300066 
^ABOOOSO 
69800066 
^21E0005 A 

P2200000 A 
31100607 

*9300l5C 

P2200001 * 

*1800015 A 
68340164 
09200000 N 
12000168 

*AA00000 * 
*9F oo68 

Og200000 N 
68040166 
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01 



01 00U4 

00164 68000Q6D 

00165 68ooOl79 

01 001^ 
00166 68000Q6D 

00167 6800016E 

001$g O^D7C9C7 A 
00169 r s D 6 D 5 ^0 A 



KlSl 



* 
# 
* 
KlSTVl 



KISTV2 



TPIGEON 



C!#R8 

BNE 

8aL,R 11 

BcSj8 

LWjRI 

LI#*2 

CW#Rl 

BNE 

LT#R2 

I 

Cl#R8 

BE 

PU$M 

LO*RO 

BAL*R10 

BCStjb 

PULL 
B 



EQU 

B 

B 

EQU 
B 
B 
BOUND 

trxtc 



C*# f 

KEYERR 
QKIFLO 
KEYERR 
KPIB#R7 



«C f ALL • 
KlSl 
1 

X*15» 

KJ8TVUR2 
R2 

TPlQgON 

T|GJ8BST*T 

KEYERRi 

R2 
KISTv^jR? 



$ 

KEYINR 
KIN9M0R 

* 

KEYTNjR 
K!M V HDR 

8 

tP!QE»N» 



CMECX SYNTAx 
ERROR 

Oft id/'aLL* 

initialize flagi assume id 

was 'all* specified 

no 

yfs.t. re. initialize fcag 

IS dElImITEr a f CR* 
YFStt.TAKE APPROPRIATE ACTION 
N»»»ttSAVE iD/fAll* FCAG 

Start up pigeon 

tLATERi IF PIGEON WAS ALREADY 

or w£ were unable to start it 
Set id/ull* flag 
continue 



IF IDtttMERELY EXIT 
IF lALLl.ttZAP COCHESS 



IF !D»«tEXlT 

IF fALLtt»tMO V F MESSAGE TO COCMFSS 



ACTIV 

UP, 



H 



01 



I7t4a 

62* 
63* 

6** 

65* 
66* 
67* 
68* 
69* 
7O* 
71* 
72* 
73* 
74* 
75* 
76* 

77* 
78* 

79* 

80* 
81* 
8 2* 
83* 

84* 
85* 
86* 
87* 

88* 

89* 
9 0# 

9I* 

92* 

93* 

94* 

95* 

96* 
97* 

98* 



SEp 08# »7k 
01 001*A 



01 001 6A 
01 00168 

8i m$ 

01 0016E 
01 0016F 



^2100000 N 

68300066 

?l8QQpl5 A 
a83001 7 9 

?22FFFC9 A 
321E0001 A 
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PaOC 
KlMEAD EflU * 
##♦*#♦♦#*#####****#*♦####**#*#♦**♦##•###♦**#***#♦*#♦*♦*###**###♦#*#**** 

*F* NAMfJ KlHgAD 

*F* 

*F* pURpOSEj TO pR8CESS THE 'HEADING! K&YlN 

*F* 

*F# Df8CRIPTI8N| M0V&S THE MESSA6E TEXT TG CftCMES F»R SUBSEQUENT 

*F* TRANSMITTAL T8 ALL BNLINf USgRS BY THg C8C R&UTJNeS I 

*F# THE T8P »r PAGE HEADING, 

**«######•#»###**•#«####*♦*#♦#••****#♦######»*»*#**#*♦«♦«#*####***##♦** 

*D* 
*D* 
*D# 
*D* 

input* R7 • adr »f keyjn Parameter list 
C&C, keYi^bup 



NAME 8 
CALL? 



KlHgAD 

KEYIN F® r MAT| HEADINq < MESSA G E ) 



*D» 

*D# 

*0* 
*0* 

*D* 
*D* 
*D* 
*D* 

*D* 
*0# 
*D* 
*D* 
*D* 



OUTPUT l C0CMESS 

REGISTERS! ALL A«E VULNERABLE 

ENVIRONMENT! MASTER/MAPPED 



OESCRlpTISNj IF N» MESSAqE wAS pR8vID£D# gyTE &F CftCMESS 
IS SET T» Ol OTHERWfSEj UP T8 55 CHARACTERS »F THE 
MESSAQE A «E MftVED rR8M KEYlNBUF T0 C&CMeSS WITH BYTE 
9F C8CMeSS SET AS THE BYTE C^UNTi 
*•♦♦#♦*#*##♦##**#*#*###♦#**#*#***♦♦*♦#•#♦•*•#**«*•#*****♦#*##♦♦♦**#**** 
* 

Ll # Rl C6C IS THIS A T'S $YST|M 

BEZ KEYERR N» 

C!jR8 X»i5 f IS DELIMITER A iCRI 

Br KIN8H0R YeS,,,ZAP C&CMeSS 

KjMVHDP J ENTE R HfRE PR»M 'SEND' KgYiN ALS» 

LI#R2 »55 SET UP INDEX F&R CfCMESS 

LWjRI KCCPjR7 5ft current pssitiSn in kfyinbuf 



HOI 



171* 


2 I 


SEP 8 i 


'7* 








99* 










KlHl 


1 


lOQ* 


01 


00170 


72020000 


X 




LB#Ro 


101* 


01 


00171 


91000015 


A 




Cl,RO 


1Q2* 


01 


00172 


A8300176 






BE 


103* 


01 


00173 


75o*OOOE 


N 




STB*RO 


1GM 


01 


0017* 


?0100001 


A 




A!,R1 


105* 


01 


00175 


*5200l7o 






BTR#R2 


106* 










KIM? 


J 


107* 
*0*» 
1Q§» 


oi 


00176 


P0200037 


A 




A!#Rg 


60I77 
00178 


7 5200000 


X 




StBjR2 


01 


*800006p 






B 


110* 










* 




111* 










« 




112* 










# 




113* 










KJN&HDR 


1 


11** 


01 


00179 
0017A 


P2000000 


A 




LljRO 


115* 


01 


75000000 


X 




STBjRO 


116* 


01 


0017B 


*800006D 






B 
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KEYINBUF#R1 
X»15» 

C8CMESS*l56A)#Rg 

1 

KlWl 

55 

C8CMESS 
kEYINr 



C&CMESS 
KEYINR 



GftT CHARACTER rRSM MESSAGE 

IS IT *CR* 

?ESt»«oUjT 
UT IT AWAY IN C9CMESS 
INCREMENT KgYlNBUr INDEX 

gb qet next e n ara c ter 

calculate actual message sizi 

initialize byte cnt 
exit 



DELETE CURRENT MESSAGp 
Ikp BYTE 



HOI 



17J4 
1116 
1119 
1120 
1121 

1122 
1123 
1124 
1125 

2# 

3* 

4* 

5* 

6* 

7* 

8* 

9# 

10* 

U* 

12» 

13# 

14* 

15* 

l 6* 

l7# 

1127 
1128 

1129 
1130 
1131 
1132 
1133 

1134 
1135 
1136 



2 SEP 08/ 
01 



01 0017C 
01 0017D 
01 0017E 
01 0017F 
01 00180 
01 00181 
01 001&2 
01 00l 8 3 
01 
01 60184 



»7r 
0017C 



70200000 X 
*9CQ0066 

?2Cooqff a 

^bcooooo x 

4 9 C00608 

P2000000 N 

30DE0001 A 

324E ooi A 
001** 

72080000 x 
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Page 
k mcsend equ • 

♦♦#***###*♦#*#*»*#»*#*#♦*♦*•*♦#**••♦»######♦♦#*•#*#**♦*♦****#*♦***«*♦** 

*F# NAMrt KMCSEND 

♦F# 

*F* pyRpOSEl TO pROcE^S THE tM C $END» KEylN 

*F# 

*F» DESCRIPTION! USES NgWQ TO SeND THE MESSAGE T© THE R.A,S. 

♦##«»*###♦♦♦*«*•*##♦#♦####*♦♦«**♦*##♦*##♦♦##*#*##«#*»**#*#**«*****♦**** 

*D* 

*D# 



*D# 
*D* 
*D* 
*D# 

*D# 
*D# 

*D# 
*0# 

*0* 
*D» 
*D# 
*0» 
*D» 
*D# 



NAMES 

c a ll« 

TNPUTJ 



KMCSEND 

KEVIN |r8 N M A Tt mcSENO TEXT 



R7 . ADR OF KEVIN PARAMETER LIST 
KEYINBUF 



RFqISTERSi ALL ARE VULNERABLE 

intfrface* newq 

ENVIRONMENT I M ASTeR/mAPPEd 



drscrlpti&ni after verifying tmat we are running on a xerox. 
§60* a call t& news is made to transmit the message 
in kevin9uf to twf remote assist station, 

##♦♦#♦*###♦*#♦***#♦####••**#**♦******#•#*♦•*•************♦***♦********* 



BlF*S7S9 kEvERR 



L!#l2 
ANDjIS 

OR'* 2 
LTj13 
AW#i3 
LW,«4 
KMCSEND! EQU 

LB § Rq 



XlFFf 

RASIDOL 
iXMFFOaOO 1 

bA(k^vINbuF) 

KCCPjR7 
KCCP,R7 

KEYINBUF#R# 



DCT MASK 
DCTX 

FCjPRIjNRT 

BUF 

CURRENT POSITION 

CURRENT POSITION 



HOI 



17 1 42 SEP 08' 


»7r 






1137 


01 00185 


PlOOOOlS 


A 


CI#RO 


1138 


01 00186 


A&300189 




BE 


1139 


oi oot 87 


PO^OOQOl 


A 


A!#R4 


mo 


01 60188 


A8000184 




B 


11*1 


01 


001*9 




KMCSEND2 EQU 


1142 


01 Q0189 


384E0001 


A 


SWjR** 


1U3 


01 0018A 


p0#00002 


A 


A!#4 


1144 


01 00l8B 


38^00004 


A 


UWji* 


1H5 


01 0018C 


*2F00000 


A 


LIjIB 


1146 


01 ooi* D 


325E0001 


A 


LW#R5 


1147 


01 0018E 


3Q5FFFFF 


A 


A!#R5 


1148 


01 0018F 


750AO00O 


X 


STB'RO 


1149 


01 00190 


22000000 


A 


LT#0 


1150 


01 00191 


AAB00OOO 


X 


BALjU 


1151 


01 00192 


O200O000 


A 


N»P 


1152 


01 001*3 


*80000* D 




B 



X»15« 

KMCSEND2 

1 

KMCSFNDl 

$ 
KCCP1R7 

2 

4 

KCCP#R7 

• 1 

kEY1NrUF#R5 



NEWQ 

KEYINR 



CR 
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MSQ SIZE 

STZE 



HB END ACTION 



HOI 



17142 

153 

154 

155 

156 
157 

*58 
159 
160 
161 

163 

164 

1* 
2* 
3* 

4* 
5* 
6* 
7* 
8* 
9* 

10* 

u* 

12* 
13* 
14* 
15* 
16* 
j* 

8* 

19* 

1165 

1166 

1167 

1168 
1169 
1170 



li 



SEP 08* *7R 

01 00194 



01 00194 »2B00000 

01 00195 A8300066 

01 00l 9 6 aAB 000 5 

01 OOl 97 a98 0066 

01 00198 ?2B001A0 



N 
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PAGE 

kscpu rou * 

*#*♦*###♦*#•*#****#**♦*♦***#*******#*###**#*#*#***#**********♦♦#******* 

*F* name i kscpu 

*F* 

*F# PURPOSE? TO PPeCE^S THE *SCPU» Kg;YlN f 

*F* 

*F # DESCRIPTION! IN A MULTIPROCESSING SYSTEM, A SLAVE CpU IS 

*F* STARTEDj THE STBP.B1T IS RESET AND THE STAKT.BlT SET 

*F# IN SBtlNlT^ S1MPKYN IS INCREMENTED <RE«E n TRaNCY 

*F* C8UNTER ) AND T^E M©ftSE IS GOOSED" 

*#♦#####♦##♦*#****#•*♦♦#♦*******#**#*♦*#****«************#***•##******* 

*0* 

•o* 

*D* 
*D# 

INPUT! R7 . ADR OF KEYJN PARAMETER LIST 



NAME! 

call; 



KSCpU 

KEYIN FORMAT! SCPU ID 



*D* 
*0* 
*D# 

*D* 
*D# 

*D* 
*D* 

*D* 
*D* 
*D# 
*D* 
*D# 
*0* 
*D* 



OUTPUT! SB!INIT# S*MPKYN 
REGISTERS! ALL A*E VULNERABLE 
INTERFACE! GKjFLP# TtGJBBSTRT 
ENVIR8 N MENTI m aST eR/mappEd 



DESCRIPTION! IN A MULTI -PROCESSING SYSTEM A SLAVE CPU IS 

STARTED BY SETTING THE START»BIT IN SBflNIT FOR THE 
SPECIFIED CPU AND CaLLING t*GJ&BSTRT T© INITIATE 

the Meesi Ghost *JoBt 

*♦#♦#♦#♦#•##♦#****#»•*#•**•********##♦#*#*#•#*****#****#*♦************* 

Ll,ll NSCpU IS THIS A SLAVE CpU SySTEM 

BEZ KEYERR NO, error 

BALjH GKIFLD GET ID 

BCS*8 KEYERR ERROR 

LI#11 KSCPU? 



! 01 



17 J 

m 

172 
173 
174 

175 
176 

177 
1* 

180 
181 
182 
183 

1«4 
185 
186 
187 

188 
18* 



45! 



01 
01 
01 
01 
01 
01 
01 

01 
01 
01 
01 

01 
01 

01 
01 
01 
01 



SEP Q8# 
O0l'9 

O019A 

0019B 

0019C 

O019D 

0019E 

OOlSf 
01 

O0l A 
OOlAl 
O0U2 
001A3 

00l A * 
00U5 
001A6 
001*7 
001*8 
A0lA 9 



f 7s 

323^0005 a 

^5300068 A 
4^30000^ N 
A83QQ066 
?»1300000 N 
#> 9 200066 

00i r§oooooB A 

*D000037 A 

72B60000 X 

4BB00000 X 

POBOOOOI A 

75B6oO0O * 
AD000027 A 

33100000 X 
1200000C 
6 A AQ0000 X 
^8000060 



KSCPU1 
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KSCPU2 



LW#3 


KPUB#r7 


StS*3 


• 24 


ANlD#R3 


XF 


BfZ 


KEYERR 


C!#R3 


NSCPU 


Br, 


KEYERR 


B 


*11 


EQU 


* 


DISABLE 




LBj 11 


SBIIN!T#«3 


ANDtU 


XFC 


AT#RU 


STARTBIT 


STBmI 


SBI!NTT#«3 


ENABLE 




MTWjI 


S|M pj< yN 


LDiQ 


TXM98SE 


BaLjIO 


TI<3J&BST R T 


b 


KEYfNR 



T99 HIGH 



GET ALL BITS BUT START/STftP 
SET START 
8TSRE IT 

INCREMENT RE*ENTRANCy C&UNTE* 
TRY T8 START GH&ST 



woi 



17? 42 

190 
191 
192 
193 

194 

I95 
196 
197 

198 

I99 
200 

201 
1* 

2* 

3* 

4* 
5* 

6* 

7* 

8* 
9* 

10» 
11* 
12* 
13* 
I4* 
15* 
16* 
17* 
18* 
19* 
12q2 

12Q3 
1204 
1205 
1206 
1207 



SEP 08* <7s 
01 OOIaA 



01 OOlAA 

01 OOlAB 

01 001AC 

01 00l AD 

01 not A E 



22B0O00O N 

A8300066 

^ABOOOgO 

A98Q0066 

22*00001 A 



PURPOSE* TO PROCESS THE 'XCPU» K^VINi 
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PAGE 
KXCPU EGU * 

#»#***##»*«###**#*##»♦«♦***#*#♦**♦♦♦###*#•###**«♦#*#***#***##********** 

*f# name: j kxCpu 

*F# 
*F* 

*F* 

#F # OFSCRlPTIGNf IN A MULT! -PROCESSING SYSTEM, A SLAVE CpU IS 
*F# ST&PPE&J THE START.BIT IS RESET AND THE STOP.BIY SET 

♦F# IN SBUNIT* SJMPKVN IS INCREMENTED (Re.eNTRaNCY 

•F# CaUNTER^ AND THE MOOSE IS GOOSEDi 

••«***««•«««*»**#««*#*#«*«••*##**•«*•«#•»#*»«****»#«#«*««••«**««**»#*»* 

*D* 

*D* 

*D* 

*D# 

*D* INPUT? R7 . ADR 8F KEYIN PARAMETER LIST 

*0* 

*D# 

*D* 

*D# 

*D* 
*0* 

*D* 
*D* 

*D# 

*D* 

•0* 

*D# 

*0* 



name; 

C A LL* 



KXCPU 

KEYIN F& H MATl XcPg ID 



OUTPUT! SBIINIT# S*MPKYN 
REqISTERSi ALL a«e vulnerable 
INTERFACE! GKiFLQ, TtGJOBSTRT 
ENVIRONMENT! MASTER/MAPPED 

DESCRIPTION! iN A MULT I -PROCESSING SYSTEH A SLAVE CRU IS 

STOPPED ft V SETTING T Mr ST& P- &!T |N 

SbIINIT AND CALlilN G TIqjMTRT TO INITIATE THE MOOSE 

GHOST J08# 

*»#♦####♦♦####****•#*##♦•**•***#***♦•#####»♦«************♦**#♦*♦******* 

* 



!#ll 

rz 

BaL,H 
BCSj8 



NScPy 
KEYERR 
GKJFLD 
KEYERR 

1 



IS TMIS A S L AVF CPU SySTEM 

NOjERROR 

GgT N 

ERROR 

set for increment 



HOI l7|<*2 



1208 


01 


1211 


01 


1 # 


01 


2# 


oi 


3* 


01 


1213 


oi 


1214 


01 


1215 


01 


1216 


01 


1217 


01 


1218 


01 


I* 


01 


1220 


oi 


1221 


01 


1222 


01 


1223 


01 


1224 


01 


1225 


01 



SgP os# 

OOlAp 
OOlBo 

00l B l 
001B2 
001B3 
00*B4 
001B5 
001B6 
Q0lB7 
001B8 

001B9 
OOlBA 
60IBB 

OOlBC 
OOlBD 
001BE 
OOlBF 
00l c 



f 7§ 

^AB00l99 
»800006D 
32Boo009 

35BOOOOO X 

A&000037 A 

72B60000 X 

4BBOO0OO X 

?0B0O0O2 A 

75B60000 x 

*D00O027 A 

20300001 A 
A41001B3 

33100000 X 

09000000 N 
1200000C 

*AA0O000 X 

hSOOOOOO N 

F8000000 A 



KXCPU2 
KXCPU3 



BALj 1 1 
LliO 

STW.U 
DISABLE 

LB, 11 

ANDjRU 

ATjH 

STBjH 

ENABLE 

ATjR3 

BORjI 

MyWjl 

PtjSN 

LD#0 
BAL*lO 

PULL 

B 



KSCpUl 
KEYINR 
NBBRANCN 

syst«t 

8BHN!T#«3 
XFC 

srapBiT 

SBIINIT#«3 



KXCPU3 
SiMPKYN 



txmbbse 
ti«3jbbst«t 


• 



VALIDATE N 

RETURN ADDRESS 

GET REFLEXIVE BRANCH 

STG&E IN SYSTRT 



ft* 



FLAGS 
6FT A LL BITS 

SET STBP BIT 
STBRE VALUE 



BUT START & ST9P 



INCREMENT INDEx 

d8 mbre than 9ne 

set re»ent»ancv cbunte* 



woi 



17U<> 
1826 

1827 
1228 
1229 

1230 
123$ 

1232 
1233 

1* 
1235 

I* 

2* 

3* 

4fr» 

5* 
6* 
7* 

8* 

9* 

10* 

11* 
12* 

13* 
14* 
15* 
U # 
17* 
18# 
19* 
20* 
21* 

22* 
1236 
1237 
1238 
1239 
12*0 



SEP 08# *7r 
01 OOirl 



01 nolCl 
01 oolCa 
oi 60IC3 



p2000lE* 
^ABoolEE 
■55200000 X 
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PaGf 
KITIME EqU • 

*##♦####♦♦#♦*♦*»#♦#*♦##♦***#####*•###♦#♦*#♦####♦##*♦«##♦###•#♦«#**##*•* 
*F# NAMF! KlTlMr 
*F# 

*F# PURPOSE* T» PROCESS TME «TTMe' AND »T f KgYlNS, 
*F# 

♦F# DgrSCRjPTieNI VALIDATES INPUj AND StOReS IHHMM! e JN pBCDlO 
*F* IN T T W E 1»W0 LOCATf eN «TImE» & URATES ClMSM 



*♦###♦#*#•*###***#♦*♦##«***#*#*#*#•**#*#*♦#*#***♦♦#«**#*♦**##**♦***♦*** 
*D# 

*D# 
*D* 



*D* 
•D# 

*D* 

*0* 
*D# 

*D* 
*D* 

*D* 
*D* 
♦D# 
*D* 
*D* 
*D* 

*D* 

*D* 

*o* 

• D* 
*D* 



NA^EI 
CALL! 
INPUT? 



kITiwe 

keyin fo«mati time hhimm 



R7 « ADR Of KEYIN pARA M ETER IIST 
1MIN 



©UTPUTI TIME, CS^SM 

Data J maXhrvaIi MaxminvaL, msmdat 

REGISTERS! A^L AR E VUL N ERABl* 

INTERFACE! qdtkivai 

ENV!R8NMentI MASTeR/«A p RED 



DESCRIPTION! CALLS q&Ti<IvAL TO VALIDATE MH & MM IN P UT FIELDS; 
THE CffLL TIME IS RESET TO TH£ HHHM . VALUgS SPECIFIED 
(IN EBCDIC), THIS VALUE 18 THEN USED TO CALCULATE 
THE N&W V a LUe FOR CfMsM (g.Ms TICS SINCE MjOniGHt), 

*#«♦♦###«♦»###****#♦*###***#*******#***«•«♦##******##********###****♦***' 
# 

Lt#RO MAxHRvAL (RO) ■ MAXt HOUR VALUE 

BAL#SR4 SDTKIVAL SET HOUR VALUE 

STH # R2 TIME STORE HOUR VALUE 

« 



MQ1 



17; 

1241 

12*2 

1243 
1244 
1* 
2# 

3# 

4* 

5* 

6* 
7* 
8» 

9* 

10# 

11# 

.2* 

3* 

14# 
1245 

1 # 
2* 
3» 

4* 



42 



01 
01 
01 

8i 

oi 

01 
01 
01 

oi 

01 
01 

oi 

01 
01 



iS: 8i 



SEP 08' 
001C4 

001C5 
001C6 

o81c 8 

60IC9 

OOlCA 
OOlCB 

ooicc 

OOlCD 
OOlCE 
OOlCF 
OOlDO 

OOlDl 
001D2 

00*03 
oo: 



01 
01 



•ID* 
001D5 
OOlDA 



Ol 60ID7 



P20001E6 
*ABqo1EE 
P230FFFF A 

^2300000 A 
P22FFFFC A 
60000037 A 
72040001 N 

*00 FFF 10 A 
30300000 A 
R73401D9 
A52001CB 
^2500032 A 
38500000 X 
?35oo258 A 
303QQQQ5 A 

35300000 X 

6D000027 A 
A800006D 



nOOAOOOfe 
O00A753O 



Tl 



LI'RO 

BALjS«4 

L!#R3 

STSjR2 

LTiR3 

Ll,R2 

DISABLE 

LB*R0 

AI#Ro 
AW # R3 
MH#R3 
BIR*R2 

Ll,R5 
S W*R5 
MIjR5 

AWiR3 
STW,R3 

ENABLE 

B 



MAXHIlsiVAl 

QDTKlvAL 

KFFFF 

TIME 



• 4 

T!ME*1#R2 

• to 1 

RO 

MSMDAT*2'R2 

Tl 

SO 

600 
R5 

ClMgM 

kEyinr 



8S 

(ro) • maxt minute vacue 
Qft min. value 

store minute value 
initialize accumulator 
set up loop 

TtME v tNHMMt 
CONVERT 
ACCUMULATE 
CONVERT TO TICS 
LOOP 

Calculate displ into current minute 

• 

convert to tics 

accumulate 

UPDATE TlCS SINCE MiDNlGMT 



MSMDAT 



GEN,l6#l6,i6,l6 10 #6 , lO, 30000 



woi 



1.7 US 
12^6 
l2#7 

12#8 
12^9 

1250 
1251 
1252 

1253 
1254 
1255 

1 2 56 
1* 

2« 
3# 

<f* 
5* 
6* 
7* 
8* 

g* 

10* 

11* 

12* 

13* 

H* 

15* 

16* 

17* 

18* 

19* 

20* 
1257 
1258 
1259 
12fe0 
12^1 
12^2 



SEP 08' ? 7R 

01 001H9 



01 001D9 
01 OOl^A 
01 001DB 



*2000lE8 
aABqqIEE 
s §200000 X 
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PAGE 
KlDATE Eo^ • 
*#*♦**#♦♦##♦#***####»##♦#**#*♦#**####♦##»*###•«»#*♦♦♦«####*♦#*#♦##♦»•## 

*F* NAMp! KIDATF 

*F* 

*F* pURpBSEj Td pR»CESS THE t^ATE' AND fOt KEylNSt 

*E# 

*F# DESCRlPTISN! VALIDATES INPUT AND STORES 'MMDD* (IN EBCDIC) 
#F # !NT© L0CATI8N DATE* AND ? VYi (IN EBCDIC) !NT8 

*F# LBCATIBN DATE+lt 

*#♦*#♦###»###**######«♦###*#***#*♦♦###♦#**##♦#♦*#♦###♦*♦#####♦#♦♦****♦* 

*D* name: kIdate 

#D# 
*D* 
*D* 
*D# 

*D* 
*D* 
•D* 
♦D* 

*D* 
*D* 
#D# 
*D# 

*D* 
*D* 

*D* 
*D# 
*D* 
*D» 



CALLj KEYIN FeHMATl DATA MM/DD/YY 

INPUT? R7 f ADR 8F K E YjN PARAMETER LIST 

SUTpUT? DATE 

DATA? MaXMINVaU, maxpayval, maxyrval 

REGISTERS! All * R E VULNERABLE 

INTERFACEi GOT*I v AL 

E NVlReNM|NT» MASTER/MA p PED 



01 001DC p20001 EA 



DFSCRlpTl8N| cALlS qDTkIvAL TB VALIDATE MM# DD, & y Y INpUT 
FIELDSl THE D8UBLE*BRD CELL DATE IS RESET TB THE 
EBCDIC VALUES SPECIFIED <MMDD YY) 

*##«##*#♦♦###♦***#•♦♦#####*#*•*•*•*####*♦«####*##********#**####***#*** 

* 

LTiRO MAxM&NVAl* 
BALjS** GDTKIVAL 

stm,r2 date 

# 

li,rO maxdayvaU (rQ) 1 max, day value 



(RO) m MAXt M9NTH yALUE 
GET MONTH VALUE 
ST8RE M8NTH VALUE 



HOI 



17 S4 


2 J 


3Ep 08# 


*7R 










1263 


01 


601&D 


^ABoolEE 




BaL*S«4 


3DTKIVAL 


GFT DAY VALUE 


1264 


01 


qoi&e 


9830FFFF 


A 


LI*R3 


KFFFF 




1265 


01 


OOlDF 


47200000 


X 


STS#R2 


DATE 


8T6RE DAY VALUE 


1266 










# 






1267 


01 


001|0 


?20001ec 




L!,RO 


MAXYRVAl 


(rO) • MAX t year value 


1268 


01 


OOlgl 


*AB00l£E 




BaL.SR^ 


QDTKIVAL 


Gft veaR value 


1269 


01 


001*2 


35200001 


N 


STw^ 2 


DATE*! 


STBRC YEAR 


1270 


01 


001E3 


A800006D 




B 


KEYINR 


EXIT 


1271 
1272 










BSUND 


8 




01 


001*4 


6000^0^0 


A 


MAXHRVAL DATA 


100" *23 f 


M8URS 




01 


00l£5 


n000p2F3 


A 








1273 


01 


001^6 


6000^0 


A 


MAXMINVAL DATA 


lOO'' 1 **' 


MINUTES 




01 


001E7 


0OOOF5F9 


A 








1274 


01 


OOlES 


O000F0F1 


A 


MAXM6NVAL DATA 


f0i'jil2> 


M8UNTWS 




01 


001E9 


n000FlF2 


A 








1275 


01 


60lE A 


0000^0^1 


A 


MAXDAYVAL DATA 


!0i»* »31* 


DAYS 




01 


OOlEB 


OQ00F3F1 


A 








1276 


01 


OOlEC 


0000^0^0 


A 


maxyrval data 


f 00*i ? 99 ! 


YEARS 




01 


OOIed 


n000p 9 F9 


A 









HOI 



1277 
1288 
1289 
1290 
1291 

1292 

129 3 
1294 

1295 
1296 

1297 

1* 

2« 
3# 

4* 
5* 
6» 

7* 

8* 
9* 
10* 
11* 
12* 
13* 
14* 
i5* 

16* 

17* 

18* 

19* 
gO* 

21* 
22* 
23* 
24* 
25* 
26* 



SEP 08, »7R 
01 OOUE 



PAGE 



9l 



GDTKlyAL EQU $ 

*♦###♦####**##***#*•#*#****#*******♦**♦####•#**##*#♦***#*♦*****«***♦*** 

*F# NAME? QDTKIVAL 

*F* 

♦F* PURPOSE! 8UBR0UTl N E T8 Q|T AND VALIDATE DaTE/TIMe VALUES. 

*F# 

♦F* D*S C RlPT!$NS OBTAINS NEXT FIELD FR»h KEyINBuF* INS u rES THAT 
*F* IT IS A VALID DECIMAL CHARACTER* AND THAT IT IS WITHI 1 

*F* A CALL£R*SPECIFIED RANGlE, 

**♦##»*####*#•*****####*#**#*#*****#*#**#♦#♦#*****##***###*****#******* 

*D* 
#D» 
*D* 



*D# 
*D* 

*D* 
#D* 

*D* 
*D* 

*D* 

*D* 
*D* 
*D# 
•0* 

*D* 

*D* 

*D# 
*D# 
*D# 
*D# 
*D# 

*D* 

#D # 
*D* 

*D* 

*D# 



NAME I 
CALLt 

INPUT' 

output* 



QDTKlvAt 

9ALjSR4(R11) 

RO 



R7 

R2 



ROISTERS! 
INTERFACE | 
ENVIRONMENT* 



* POINTER TO A DoUBLeWORD CONTAINING TH£ vaUD 
EBCDIC LlMITSi 

. ADR OF KEVIN PARAMETER LIST 

• THE NEXT EBCDIC/DECIMAL CHARACTERS FROM <£YlNBUF 
(RlQHT*JUSTlFirD) 

Rl & *3 ARE VUL^FRABLE 
GKIFLP 

master/mapped 



DpSCRJpTIONl CALLS qkIFLD TO OBTAIN THE NExT rlELD pROM 
KEVIN8UFI CHECKS THf FIRST CHARACTER FOR A VAtlB 
DECIMAL CHARACTER* IF ONLY 1 CHARACTER WAS SPE C I F IE& 
A JADING EBCDIC lt*d IS SUPPLED* OTHERWISE T w E 
SECOND C H ARAcTER IS CHECKED FOR A VALID DE^mAL 
CHARACTER AN ERROR OCCURS IF MORE THAN 2 CHARACTERS 
WERE OBTAINED BY GKtFLD. THE SPECIFIED CHARACTERS AR| 
THEN VALIDATED AQAlNST THE CAuED'SUPPLIEd CHITS AN^ 
IF OK, T H E CHARACTERS ARE RETURNED TO THE CALLER 



wOl 



17? 

27# 

28* 

1898 
1299 

1300 
1301 
1302 
1303 

130* 
1305 
1306 
1307 
130» 
1309 
1310 
1311 

1312 

1313 

1314 
1315 
1316 

1319 
1320 
1321 
1322 
1323 

l32* 
1325 
1326 
1327 

1328 
1329 

1330 
1331 

1332 



42 SEP 08' f 7R 
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*0* <RIqHT»jWSTIFIED). 



oi ooieg: 

01 OOlEF 
01 O0i F 
01 001^1 
01 001F2 
01 001^3 
01 00l£> 
Ql 001^5 
01 001F 6 
01 001^7 
01 001F8 
01 001F9 
01 OOlFA 

01 00l[ B 

ol ooifc 

01 
01 001^0 

01 00l£ C 

8* S8ioo 

01 00201 
01 O0202 

01 
Ol 00203 
Ol 0020* 
01 00205 
01 O0206 
01 00207 

01 
Ol 00208 

01 
01 002Q9 



O9BOOOOO N 
09000000 N 
^ABooO^O 
69800208 
08000000 N 
322EQ005 A 
p52000^8 A 

*> AB 0020 A 
513FEOOO4 A 

A8300203 
322E0005 A 
?5200070 A 
^ABooSOA 

33FE0QO* A 
*9300209 

OOlrD 

322*0005 A 

? 5 2000 7 A 

<J92QQQ00 A 
*S>9°00 66 

08B00OOO N 

F800000 8 a 

00263 

323E0005 A 

P22000F0 A 
?52ool78 A 

153E0005 A 

A*000l F D 

002Og 

08000000 N 
00269 

*8q00066 



PUSH $Rk 

PUSH RO 

BALiSR^ GKIFLD 

BCSjg 6DTKIV3 

PULL RO 

LW#R2 KPLB#R7 

SL$*R2 KN18 

BAL,SR* DTVALCK 

MtW jW 1 KFl,P 7 

BEZ Q0TKIV2 

LW,R2 KPLBjR7 

SLS#R2 *N1o 

BaL*S«4 DTVALCK 

MTWj»l XFL,R7 

BnEZ gotkiv* 

GDTKlyl EQU $ 

LW,R? KPLBjR7 

SLS#R2 »i6 

CL.MjR2 *o 

B6L KEYgRR 

PULL SR4 

B *SR<* 
* 

GDTKIV? ecu * 

LWR3 KPLB#R7 

LT#R2 KFO 

SLD*R2 KN8 

STW,R3 KPLBjR7 

B QDTKlVi 

# 

GDTKIV3 ECU t 

PULL R° 

GDTkIV* EqU * 

B KEYERR 



GET NEXT FIELD 
ILLEGAL FIELD 

(R2) ■ 1ST 4 CMAR 

check if 1st char is cegal qtc char 
Decrement field Length cgunt 
check if p 

check if 2nd ?har is legaC dec char 
decrement field length csunt 

ERRftR IF N8T ZER6 



RIGHT JUSTIFY 
LEGAL VALUE 



NftRMAL EXIT **«**♦**##** 



INSERT 



LEADING EBCDIC 



ZER© 

F0R 1 CHAR 

VALUE 



HOI 



17 J 


4g 


1333 




1334 




1335 




1336 
1337 




01 


1338 


01 


1339 


01 


13#0 


01 


13*1 


01 


1342 


01 



SEP OS' *7R 



01 
0020A 

OO20B 
6o20 c 

ooaoo 

6o20g 
0020F 



93 



002nA 




4B200008 


N 


P12OO0F0 


A 


A^lOOSO^ 




?12000F9 


A 


*9200209 




P800000B 


A 



DTVALCk 



DATE TIME VALUr CH E CK 



EQU 
Anq«r2 

C!#R2 

BL 

CT*R2 

BG 



i 
XFF 

KFO 

SDTKIV4 
KF9 
GDT*IV* 

#SR* 



CHECK IF < FO 

ERROR 

CHECK IF > F9 

ERRftR 
EyTT 



M01 17142 SEp 08' '7r 9* 

1377 page: 

1# #♦############•*#♦♦♦#♦#♦##**♦##♦#####♦♦#*♦#####*•♦*#♦»##########♦♦»#* * 

2* * AV&TBL FUAG«»BIT c»MBlNATI8NS * 

3# ♦♦####*###»##♦♦#»♦###♦#♦♦#•♦#♦♦*•###♦♦###♦♦##♦#♦#«♦##«-#♦•♦#•###*#*♦** * 

4# * PUB SERIAL NeU AyR TO S»L V E R ♦ 

5* * PREM0UNT PUBLIC 1*10 * 

6* * PREM6UNT 0*00,00 * 

7# * AVAIlABl^ 0000000 * 

8* * SOLICITED 0*00*1} * 

9* ♦ BEING VERIFIED * - 1 * 

10* ♦ DtSMGuNTa a Ct° • * * 1 »1 * 

11* * PRlVATE(EXCL) 0**1*00 * 

18* * SHARE 0**1000 * 

13* * PUBLIC 1 * **1 1 * 

14# ♦»#♦♦#♦##♦#*##**•*#**##♦*##«#♦###*#♦#«#*♦#♦*»#####*♦•♦#*##♦#«*##**♦#* * 

139* * 

1395 01 00210 KJANSS EOU $ 

139$ •#♦♦####♦»##♦♦#########♦##♦#♦*#♦#*###♦#**#♦♦##*•*»###*###»•*####*♦#*#♦* 

13«7 *F# MAME« KIANSS 

i3§8 *F# 

1399 #F# pURp»SEj T8 pR»C£SS THE f ANSB(eRATCH> I xEvINi 

1400 *?# 

1401 *?# DpSCRjPTI»N« SETS *9 * y 2 AND CaLLS KlM»UNTZ f 

1402 ##*#*######*##****##*##*##*#**♦***•«##****#♦#**•**#**#*»##*#*#*»******* 

1*03 * 

1*0* 01 00210 3290001E N L W *S R 2 Y* . ANS SNATCH pUG 

1*05 01 00211 A80Q021C B KIMSUNT* 

1*06 * 

1*07 * 

1*08 * 

1*09 01 00212 KlANSM EqU i ANS M8UNT FLAq 

»•♦########*♦#••**«.♦*•*»♦**#*##***#*###♦♦*##****#**#*##*##****♦***♦**** 

*F* NAMrl KIANSM 

1*12 *F* 

1413 *F* pu R p6SE| T6 pR»cE S S THE IANS M ieuNTP KEy!Ni 

1*1* # P* 

1*15 *F# DFSCRIPTI§N| SETS R9 • Y3 AND CALLS KIM8UNTZt 



1*11 



-*01 17J42 SEP 08* 


» »7R 




1*16 








Ul 8 


01 60212 


329OOOOO 


X 


1419 


01 00213 


A800021C 




1420 








U21 








1422 








1423 


01 


00214 




1424 








1425 








142$ 








1427 








142§ 
1429 














1*30 








1431 








1432 


0l 0081* 


3290OOIF 


N 


1433 


01 00215 


A800021C 




1*34 








1*35 








1436 








1437 


01 


00216 




1438 








1*39 








1**0 








I44I 








1442 








1443 








1*44 
1445 














1446 


01 0021$ 


&2900000 


A 


1447 


01 00217 


A»00021C 




1448 








1449 








1 *50 








1*51 


01 


0021 8 




1*52 









95 

LW#SR2 Y3 

B KIM©UNTZ 

# 

* 
« 
Kj A NSe EOU • AMS 8VER FLAG 

•F* name: kIAnso 

*F# 

•F* PURP6SEJ T& PR8CESS THE t8VERt AND f READi KEYINS. 

*F# 

#F# OEScRlPTIBNj SETS R9 ■ y4 AMD C^LL® KlM^yNTZt 

* 

LW,SR 2 Y4 

B KJm8unU 

* 
# 
# 
kIm»Unt EqU t 

#F # namf: kimqunt 

♦F» 

#F* PURR6SE1 t9 PRBCE^S THE ♦MBUNT' *E Y !Nf 

*F* 

♦F# OFSCRIPTIBNJ SETS R9 > AND CALLS KIM8UMTZ# 

#♦#####♦#•##•♦•*#*♦#••####•**♦•#*###♦#######*♦♦***#**•*####•##*#**#**** 

• 

LI # SR2 MftT SCRATCH 

B KIM8UNTZ 

KIS C RTm equ * 



01 00218 
01 00219 

01 Q0gl A 
01 0021B 



0l 0021C 



HOI 17U2 SEP 08' »7* 

1463 

1454 

1455 

1456 

1457 
1458 

1459 

1460 
1461 
1462 

1463 
1464 

1465 
1* 
2* 
3* 

1467 

1468 

1469 

1470 
H?l 
1472 
1473 
1474 
1475 
1* 

2* 

3* 
4* 
5# 
6# 
7« 
&• 
9* 
10* 

11* 
12* 
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NAME! KISCRTH 

PURP8SEI T8 PROCESS THE tSCRATCHt K&YIN* 



122E0006 A 
*12006o9 
6^300489 
3290001D N 



*F# 
»F# 
*F# 

*F# 

•F* DESCRIPTION* VALIDATES COMMAND, SETS *9 • Y l AMD FaXCs THRU 

*F* TO KfM0UNT^« 

# 

L w #Rg KP^B*li^ 7 

Cb/#Rg L(tTCH i) CHECK IF REALLY SCRATCH KFYIN 

BNE SKEYIN NO 

LW,SR2 Yl 

* B kI m suntz p ALL THRU TO <IMOUNTZ 

« 

# 

KIMOUNTZ RFS 

•##*♦»♦####♦#♦#•#♦#**«#♦#####♦###♦»**♦#*###♦#*#*♦»###♦#♦*####♦#*»•####* 

*F# NAMirj Kl^euMTZ 

*F# 

*F* PURPOSE I COMMON HANDLER FOR THE FOLLOWING KEYINS: 

•F# A^SSi ANS M - ftVERj READ* HoUNt S sCRatCH 

*F# 

*f# description; process the various tape amd fack*related Kevins 

##»♦##♦♦*#*##**•♦***#####«***»#**###♦####«#♦»*#*****#••**#*#**##*•**#»# 

♦D# NAMgJ KIH8UNTZ 

KISCRtH, KIMOUNt, KTaNSA, KIAN8M, KIANSS 

KEYlN rB*MATSl 

ID 
MOUNT NDD ( ,NDD)(#BLPj(#SERfAL*(jPUBLIC)) 

LOCK 
SCRATCH NDD{tNDDHj B Lp>)*SER!AL* 
ANSHOUNT NDD(,NDD) (jBLP) 



*D* 




»D* 


entry! 


*D* 
»D» 


CALLI 


•0# 




*D* 




• D* 




*D# 




#D# 




*D* 




*D# 





HOI 



17143 SEp OS# »7* 


13* 


*D# 


1M 


*D* 


i5# 


*D* 


*6* 


♦D* 


17* 


*D* 


18* 


♦D# 


19* 


*D* 


20* 


*0* 


21* 


*D# 


22* 


*D* 


23* 


*D* 


24* 


*D» 


25* 


*D* 

*D* 


26* 


27* 


*D* 


28* 


*D# 


29* 


*D* 


30* 


*D* 


31* 


*D# 


32* 


*D* 


33* 


*D# 


34* 


*D* 


35* 


*D# 


36* 


*D# 


37* 


♦0* 


38* 


*D* 


39* 


*D* 


40* 


♦D* 


#1* 


»D» 


42* 


*D# 


43* 


*D* 


44* 


*0* 


45* 


*D* 


46* 


*D* 


47* 


*D# 


48* 


*o# 


49* 


*0# 
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INPUTS 



ANSseRATCH NDD ( t NOD , ( i BLP H # ser I AU j 

OVER NDD i, SERIAL*) 
READ NDDUsERlAl*) 

R7 . ADR OF KEVIN PARAMETER LIST 
SOLICIT, AVRTBl, AVRID, ANSFLGS, ANSPRT, DCT4 
TSER!AL# LSERIAL* RSERlAL, SHjRTOT, SH|RO C U 
SHjRBCU* SHjRQCU 



OUTPUT! AVR TABLES SET TO REFLECT PRESENCE OF TAPE OR p ACK 

RrGlSTERSt ALL A*E VULNERABLE 

INTERFACEi NDD# SlXPACK, RAT,DCT4# ASPIN, HOWALO* KIREQND6 
WAKEUP 

ENVIRONMENT! MASTER/MAPPED 

DESCRIPTION! eAC h OF T^E SPE c I r lED ENtRV POINTS SETS A UNIQUE 
FLAG IN SR2(R9) T © tNDiCate THE T yP E » f m OUNt <&lH* 
KlMBuNTZ IS THE C»MM»N HANDLER FOR THESE KEylNSt 
THROUGHOUT THE MOUNTING PROCESS THE FOLCOWING REGISTE 
CONVENTIONS ARE UTILIZED! 

R5 (BT tE 0) 9 &R DC*X ©F ORiGjNALLV Re^UcSTED 

DRIVE IF A UNIT SWITCH WAS INDICATED 
(BYTE 3) * AVR INDEX OF DRIVE TO BE MOUNTED 
RIO ■ POSITIVE V A LU£ IF W E aRe w OR*ING WttH A PACK 

VALUE tp WE ARE WAKING w?TM A TApE 
. ORIGINAL CONTENTS OF THE AVRTBL 01 
THE DRIVE ACTUALLY BEING MOUNTE& 
RH/R*5<D3/D*) ■ INITIALLY A COPT OF R12/R13 

<UNLpSS A UNIT SWlyCH H A c 3 E r N 
INDICATED IN w H ICH C A SE ^fk/^lb 
ARE THE CONTENTS OF THE 0RI3JNALL 
REQUESTED DRIyEfS A V RT§L> j Rl4/Rl! 



NEqATIvE 
Rl?/Rl3(Dl/D£, 



M01 



17*42 
50* 



SEP Og# *7r 



51* 
52* 

53* 
54* 
55* 
56* 
57* 
58* 
H 79 

Hgg 
1489 

1490 
14gl 

1492 
1493 
1494 
1495 
1496 
1497 
1498 

1499 

l^OO 
1501 
1502 
1503 
15q4 
1505 
1506 
I5O7 
1508 
1509 
1510 

l5ll 
1512 
1* 
2* 



01 0021C ^AFOOOOO X 

01 O021D P260000O A 

01 0O21E B2A Q2lE 

01 0021F P1500000 N 

01 00220 A9100224 

01 00221 32*00221 

01 00222 7 0200009 A 

01 00223 #>9FQ0066 

01 60224 ?18 004B A 

01 00225 *93 00 g3* 

01 00226 3l9oOQl F N 

01 00227 683000 66 

01 00228 730*0000 * 

01 00229 ^8300066 

01 0022A 09500000 N 

01 0022B ftAFOOOOO X 

01 O022C 08300000 N 

01 P022D 12CA0000 X 

01 C022E 12160000 X 

01 0022F R 26600°0 X 

01 60230 p0300000 N 

01 Q0231 75300005 A 

01 00232 32F0O00D A 
01 00233 _ *800023D 
01 002** 
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*D* are updated as t^e kEyim IS PARS E 

*D# AND ivENTUALLy bEC»m£ THE NEw 

*0* AVRTBL CONTENTS. 

*D* 

*D* 

*D# 

*D* 

*D* 

♦ 

BaL,D4 

LI #6 

LWUO 

Cl # 5 

BL 

LW*10 

LC 

BCS*i 5 
CIjSRl 
BNE 
CW#SRg 

BE 

MTB*o 

BEZ 

PUSH 

BALjD4 

PULL 

LDiDl 

LD,D3 

LM # R6 

AIj3 

5TB,P3 

LW # D4 
B 

NSUNTSW EOU • 

*d* tmc second functibn is t» ch e ck t he legality »* the 



NDD 


CHECK NDD »&K OCTX IN R2 





ID 


»* 


SET TAPE/PACK FLAG 


avrtblsi* 


IS IT RIGHT 


$♦4 


YES 


t 


NB* SET PBSITIVE 


SR2 


NBTMINS BUT W8UNT FBR PACKS 


KEYERR 




»t» 


UNIT SWITCH 


N0UNTSW 


Nft 


V4 


MUST NBT BE BVER KEYlN 


KEYERR 




SdLlClT#«5 


MUST BE SOLICITED 


KEYERR 




R5 


SAVE AVRX 


NDD 


SET 2ND UNIT 


R3 


R3HST DCTX 


AVRTBLjR5 




AVRTBL,R3 


NfW VALUgS,! IF N8T MBDIFifD 


AVRlD # R3 




BATAPr 


MaKE OCT INDEX 


R5 


set flag for srchavr 


D2 


Gft flags 


QETAVRj 


REENTER LOGIC 



HOI 



1784 


2 I 


SEP 08/ 


f 7R 




3# 










4* 










5* 










6* 










7* 










8* 










1513 


01 


00234 


A4A0023B 




l5i4 


01 


00235 


SU^OOOlF 


N 


1515 


01 


90236 


A 930023B 




1516 


01 


00237 


33000000 


X 


1517 


01 


0023g 


*92000 66 




l5i8 


01 


60239 


702*0000 


X 


1519 


01 


0023A 


A8300Q66 




1520 
1521 




c 01 


0023 8 




01 


0023B 


12CA0000 


X 


1522 


01 


0023C 


12EOO00C 


A 


1523 

1* 

2* 


01 


no23D 






3* 

4* 
1524 


01 


0023D 


^1900010 


N 


1525 


01 


0023E 


^9300240 




1526 


01 


0023F 


4790000F 


A 


1527 


01 


O024o 


SlDooOlC 


N 


1528 


01 


00241 


*8400244 




1529 


01 


00242 


730AQO0O 


X 


1530 


01 


002^3 


^83000^6 




1531 


01 


00244 


P180006B 


A 


1* 


01 


00245 


*8300249 




2# 


01 


00246 


31900010 


N 


3* 


01 


00247 


^8300066 




4* 
5» 
1534 


oi 


0024g 


A8000S 66 




01 


00249 


aabqoqso 




1535 


01 


O024A 


A9800066 




1536 


01 


0024B 


A4A00263 
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•D* KEYIN, AN ?6vER« BR - iREADt KEVIN IS LEGAL 8NL* IF TH 

*D# SYSTEM IS ANS*SEMf pPRBTECTCO AND TN£ £RR FLAGS (9F 

*D* aNSFLQS) A«E SETt fBI ~F f M A Y B E sPeCiFi e D FOR TAPpS 

♦ D* 8NL Y IF t WE SySTEM IS ANS.SEMNpR&TECTEOt 



GETAVR 



GETAVR1 



BORjIO 
CW#SR2 

BNE 
MtWjO 

BG 
LC 

BCRj3 

ECU 
LD,D1 
LD,D3 
RFS 



QlETAvR 
V4 

QETAVR 

ansprt 
keyerr 

ANSFLGS#5 
KEYERR 

t 

AVRTBL#5 

Dl 



PACk 

OVER KEYIN 

N9 

MUST BE SEM!«*WTECT!VE mode 

ERRftR FLAGS MUST BE SET 



RFEL + 2ND WD 

SN AND FLAGS 

ENTRY FBR UNIT SWITCH 



*D# GETAVRl 18 THE E N T R Y PBfNT INt» MBUNt-PRSCeSSING F8R 

*D* THE AVR ROUTINE* 

#♦*##♦###*♦#♦*#•»#♦##*♦*##*####♦*•##•♦#######*•«•####**•*#*•*##♦*»*»*'** 

CW # SR2 Yl 

BNE i*2 
D4 



STSj9 

CWjD2 

BaZ 

MTBjQ 
BEZ 
CHKSR CIjSRI 
qE 

CW#SR2 
BE 

B 
CHkSri 1 

BALjSR4 qkIf^C 5 
BCS*8 KEYERR 
BDR'lO MNTSCR 



SCRATCH 

SfT SCRATCH IF PRESENT 



VERB 

CM* S" 

S»LICIT#5 
KEYERR 

CH*SR* 

Yl 

KEYERR 

reel**i 



NST VER ^ 

MUST BF SOLICITED 



IS THIS A SCRATCH REQUEST 

YES 

N8 



N9 BLP F8R PACKS 



HOI 17*4 
1537 

1538 
1539 
l5*.Q 

i # 
2* 
3# 

4* 

5* 
6# 

7* 

8* 

9* 

10* 

IX* 
12* 
1541 

1542 
1543 
1544 
1545 
1546 
1547 
1548 
1549 
1550 
l55l 
1552 
1553 
1554 

1555 
1556 
1557 
1558 
1559 
1560 
1561 



2 S|P Og# f 7f* „ 
01 0024C 322E0005 A 

01 O024D 311200006 

01 0024E *83 o27A 

01 0024^" 



01 002^F 

01 6o250 

01 60251 

01 00252 

01 00253 

01 00254 

01 00255 

Ol 00256 

01 00257 

01 00258 

01 00259 

Ol 0025a 

01 0025b 
01 

01 0025C 

Ol 0025d 

Ol 0025E 

Ol 0025F 

01 002*0 
01 00261 
01 60262 



3190001E N 

69400259 

A9100263 

720AO000 X 
4B000002 
21000030 A 
A8300066 

702AO00O X 

^94Q025C 

*&000263 

6 9 2000^6 

33000000 X 

A9200Q66 

002BC 

3|AEo004 A 
^9300066 
4<H00265 
?5l00002 A 
aABqoOOO x 
32E00002 A 
68000266 



N&TBIP 

*♦###♦## 

♦D# 

*D* 

*D# 

#D# 

*D« 

•D# 

*D« 

♦D# 

•D» 

* 



LW#r2 
CW#R2 

EOU 



100 
KPLBjr? 
BL* 
CHKBLP 

i 

the Kevin is checked p»r a serial number; serial 

NUMBgRS ARE ILIe^aI UNDpR r^E F&LLeWlNG CBN&lf!0N6l 

> ANSM8UNT KEYIN 

> ANSSCRATCN KEYfN IN A PROTECTED SYSTEM 

> AN$ SgRlAU* N^T * CHARACTERS' CP*V L A 3|tL **> CHaR 

> §VEMEAD xEyIN REFERENCING AN ANS VOLUME 

FOR PACKS, THE SPECjFIEO SfRlAL* IS CHECKED AGAINST 
THE MRS $ERlAl* TABLES AND, IF FftUNO, ItS DeVIC£»tYP£ 
IS VALIDATED AGAINST THAT SPECIFIED IN THE KEYINt 



AMNTSCR 

ANSREELm 



CW'SR2 

BANZ 

BL 

LB#Ro 

ANDjRO 

C!#Ro 

BE 

LC 

BCS#4 

B 

6(3 

MtW,0 

BG 

EOU 

MTW,.6 

BnI 

ANLZ# R 1 

SLS#R1 

BALjSR4 

LWjDj 

B 



y2 

amntscr 

MNTSCR 

ANSFLG8#«5 

X30 

ANSV»L»*4 

KEYERR 

AN$FLqS#«5 

ANSREEL* 

MNTSCR 

KEYERR 

ANSPRT 

kEyERR 

KFUR7 
KEYERR 
REEL* 

2 
SIXPACK 

R2 
rEEl**1 



CHEcK TypE 

ANS MBUNT/SCRATCM 

MftUNT/SCRATCH 

ANS FLAGS 

SFRIAL * ILLEGAL IP ANS v/9L 



an8mnt must n»t have sn 
must be se^uprbtective M»0e 



ANS SERIAL* MUST BE 6 CHARS 

BYTE ADDRESS 
HASHED SERIAL « 



Hoi 



l7| 
1562 

1563 
1564 
1565 
1566 
1567 
1568 
1569 
1570 
1571 
1572 
1573 
1574 
l575 
1576 
1577 
1578 
1579 
i58q 

158* 
1582 

1583 

l584 



1* 
2* 

3* 

4* 
5* 

6« 

*•# 

8* 
9* 

10* 
U« 
12* 
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SEP 08# 
01 
01 6o263 
01 00264 
01 
01 00265 
01 00266 
01 6o267 
01 00268 
01 00269 
01 0026A 
01 0026B 
01 0026c 
01 0026D 
01 0026E 
01 0026F 
01 00270 
01 002 7 i 
01 002 7 2 
01 002 7 3 
Ol 00274 
01 00275 
01 00276 
01 00277 
01 00278 
01 00279 



»7* 

002*3 

33CEQQ04 
69200066 

00265 

32EE0005 
65A00280 
*2Boo28q 

32100000 
442002^0 
72440000 
31E20000 
69300272 

?2300000 

7236Q000 

68300274 

31100003 A 

* 9 30026E 

641002*8 

^?00000B A 
jHSOOOO X 
r83o0008 A 
6A10032D 
n&4o£6D9 A 
06D5C740 A 
F3E8D7C5 A 



MNTSCR EQU * 

MTW,.4 KFUR7 

BS KEYERR 

REEL* EQU $ 

LW'03 KPIB<R7 

BtRilO CHKIO 

LTM1 CNKID 

«EST LW#i TSERUL 

ANIZ/2 DCTX 

LB#4 DCT<m2 

«EST10 CW,D 3 TS|R1AL#«1 

BNE REST20 

LI#3 

LBo LSERIAL#3 

BFZ RESTjo 

CW#1 3 

REST2Q BOR«i RESTio 

B •!! 

REST30 CB,4 RSERUL#1 

BE #11 

TYPERR BAUl A V RS*1 

TEXTC t WR»NQ TYPE » 
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MAX 4 CHARS 



REEL * 

Nft RES CWK F8R TApES 

Set return 

IF IN BATCH SNS# MUST Be RIGHT RES, 



CHECK THAT ENTRY 19 ACTIVE 



TYPE ON »C 



*©# MESSAGE I YYNDD WR»NG TYPE 

*8# MEANINQJ THE SPECIFIED DISK PA C K THAT W AS Ju^T MINTED IS 8f 

*a« TH| WR9N0 RE8BURCE TYPEt 

*©# 

*»* ACT!^ MOUNT T w fc p ACK 8N a ORlVg »F jHi C©RRgC T ReS»URC e 

*B* TYRE AND RE*TRY THE 'M^UNT' <& IN 9 

# 

t 
* 



HOI 



17J42 SEP 0«# <7R 



13* 


01 


0027A CHk 


bl? EqU 


14» 


0} 6o27A 


33000000 X 


MTWjO 


15* 


Ol 0027B 


^9200066 


BO 


16* 


01 0027c 


722AO0OO X 


L9>R2 


17* 


01 0087D 


49200002 N 


8R#R2 


19* 


01 Q087E 
Ol 002?F 


752AQ000 * 


STBjR2 


*S0002#4 


B 



i 

AN8PRT 

KEYfRR 

AN8rL6^#R5 

BTHTaO* 2 

AN$rL86#*3 

CHKSR 
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MUST BE 8EM1.PR&TECT1VE M90E 



Bl> PLAft 



HOI 17142 SEP 08# I 7r 103 

20* PAGE 

1585 01 6o280 CHKfD RES 

1» ••#•###•••####♦•#•#*#*•##•*•»#•#*#•#•#*#«•###•#••♦«•#•*#*#•#♦#*#•**#*•# 

2* «0# THE LaST KEYIN FI E LD IS CHECKED AND CVSYSID IS CaLLeD 

3* *D* T» VALIDATE THE SPfCirigD USER ID OR THf APPROPRIATE 

** *D* ROUTINE IS CaLLeD TO PROCr$S THE tLOCKt OR »PUSllC« 

5* *D* ©PTT8NS* ?HE 'PUBLIC* SPTION IS ILLWaC UnD^R ?HF 

6* *d# following conditions* 

7* *D# > THE SPECIFIED UNIT IS NOT A DISK PaCK 

8* *D# * THE UNIT IS IN EXCL USE 

9* *D* > THE UNIT IS ALREADY MARKED fPUBLICi 

10* *D# > THE SERIAL* IN THE AVRTBL DflESN«T HATCH THAT ©P 

11* *0* THE KEYIN AND THE ORlvE IS IN USE (AVRNOyfcO) 

12* #D # > ANOTHER DRIyE WITH THE SAME SERIAL* IS MOUNTED 

13* *D# AND IS CURRENTLY IN USE 

I4* *D# TO MAKE THE DRIVE PUBLIC, A USgR (BATCH OR ON.LINe* I 

15* *D* UNCHARGED FqR tHp.Unit <Via AS^IN AND HbWaLO R8U T fN E S 

16* *D# IF THE SPECIFIED DRIVE IS CURRENTLY IN USE) 

1 7 « *D# AND THE ORIVE IS CHaRQ£0 T© SHjRflCU, THE »PUBt BIT I 

18* *D* RlS IS $£T# AVRNOU tS INCREMENTED AND C©NTr&L PA$sES 

19* *D # T© THE FINAL FUNCTION, THAT OF STORINS AWAY THE AyRTB 

20* # D# INFORMATION (SEE BELOW), THE tLOCK* OPTION IS ILLEQA 

21* *D# IF T Mr DRlVr 15 CURRENTLY iN EXCLUSIVE US£ ©R TH| 

22# *D# 8ERIA L i IN THE EXISTINQ AVRTBL £^TRy D©ES NOT mA? c H 

23* *D# TH| KEYlN f IF THgRE ARE NO USERS ASSOCIATED WITH THE 

24* *D# PACK* K!*EQND6 IS CALLED T8 DISMOUNT THE DRJvEJ OTHER 

25* # D* WISE* AV«ID IS SET TO m\ TO INDICATE tLOCKgDt TO PRE- 

2 6 * *D* VE^T N|W USe r S FROM ACCESSING THg» DRIVE (EXCEPTION! 



27* »0# 

28* *D# 



AVRNOU • 1 iMPLjES the 'Qhost usrR ? THAT w AS CHaRSeD 
FOR THE f pRlV PRIVE MARKED pUnLICt IN WHICH CASE THE 
AVRNOU IS SET TO *ER©# THE «LOCKeDt FLAG IN AVRJD IS 



29* *D# _ 

30* *d# ieRoid a n d the Resource is Returned to the system 

31* *D* 

32# **♦#*####♦#•##**♦####•#*•#*#*#♦♦*»♦♦♦•#*♦##*#*»****#***#*#**#♦###*#****' 

33* * 

1587 01 00280 *18o606b A M' sRl f ' f 

1588 01 00281 A930028F BNE PREMOUNT N8 ID/PUBLIC 
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4* 
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8* 

1607 
1608 
1609 

16X0 
1611 

1612 
l6l3 
1614 
1615 
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01 00287 
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01 O028A 
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01 O028C 
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Ol O028E 
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01 0028F 
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6830029E 
H1000608 
A83002DA 
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6AB00OOO X 
A9800066 



H2F00006 A 
32600002 A 
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720AO000 X 
6&300294 
3190001D N 
6$200294 
32CQ000E A 
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*94qoo66 
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^93000 6 6 
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BCS48 
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publk 

HL8CK» 
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KEYgRR 

ASSUME 

4 
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HB PUBLIC* LBCK F»R TAPE 
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ID T§ WEX 



VALID ID 
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PRgMBUNT RrS N§T PUSLlC 

•######«*♦#♦»••*♦#»♦#•♦##•♦♦♦*##♦#♦*♦##•#•♦•#**###♦**##♦##**#*#♦♦♦***** 
*D# TH| TN|RO FUNCTION IB T» CMrCK jH£ AVAILABlLlT* *? TH 

*D# S^lCfFlEO DRIVE, BN A NY MBUNt, A &RJVE IS CBNSID^Re 

*D» AVAIUBU IF ALL §F TMg AVRTBl FLAG BITS ARC Rt«*ET 

*D# (IQNBRINQ AVR AND SCR/INIT* AND aVRNBUiO, 

*0# 

*#*#*#«#•###»**•♦#♦*•*#*♦***♦**♦•*♦#####•###♦»♦»*♦«#*•**«#♦•*»********* 
• 
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DtrPERfNT* MUST SEARCM 
Tr«T u^IT SwlTcM 

RgMBVg FLAG BITS EXCEPT SCRATCH 
PPgMBUMT 
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BNEZ 


1639 
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OOJAE 
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LI#4 
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1641 
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CI#4 


1642 
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^9100288 






Bl. 
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8i 


002^1 
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ISPSg 


CLMjD3 


1644 
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^93002AE 






BNE 


l645 
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6p2®3 
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522*0000 
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LH#Rg 


1646 


A930032C 






BNEZ 


4*Z 

1648 


01 


002B 5 


? 2080000 


X 
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602B6 


314Q0Q05 
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CW*4 


1649 
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1651 
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BNEZ 


1652 
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1653 
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58020000 


X 
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1655 
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58020000 


X 
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1656 
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002BD 


58020000 
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SMjO 


1657 


01 


002BE 


A8200066 






BLEZ 


1658 


01 


002BP* 


A8ooo2CD 
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MB3BP#*LPART 
PlBIHinjiI 

•ipso 

TtERtAL#2 

keyerr 

LSERIALj2 

• •3 

•SVlRSlZ 

SERlO 
OCTX 

RATI0CT4 


kEyERR 
AVRN»U#5 

ISPS 

AVRTBLNE 

• 1 
AVRTBLSU 

ISPS3 
AVRTBL#4 

ISPSg 

AVRNdU#4 

AVRS 

88L1CIT#4 



I SPSS 
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IClTlD, USE* 

8HIRTBT# 1 

8M»R8CU#* 
8H|R s Cy # l 

8MIR9CU*! 

KEYERR 

TSPSq 



WILL 



Check against running excus 
head b? e*cl chain 



N8 CAN 08 



T§ NEXT EnTry 

(JET OCTX 
GET RES TYPE 

PUBLIC ALREADY 
IS IT IN USE 

YESj must be same sn 



IS THERE BTHER DRIVE Wt SAME SN 

IF IN USE 

GIVE N8T UNIQUE MSG 

save whether sblicited 

8f either If bbth the sa h e 8R n»t 

keep l88king if same . 

must have res9urce p8r unsbljcite& i 

give back bne wh£n m£ wakes up 
Check that it is pbssiBLe 
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1662 ol 002^3 
01 602C4 

1663 ol 002C5 

1664 01 O02C6 

1665 Ol 002C7 

1666 ol 6o2C« 
01 002C9 

1667 ol 002CA 

1668 01 OOSCS 

1669 01 002CC 

1670 01 002CD 
l67i ol 002£S 

1672 Ql 602 CF 

1673 01 002DO 

1674 01 002D1 

1675 01 602D2 
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320AOO0O X PCTx Lw*0 B AT ApP#5 

SICOOOOE A ISPS CW#Dl D3 

A*300066 BNE KEYERR 

6gg00020 t PUSN 2# ** 
oiEOQOOO N 
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683002CD BgZ t+S 
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4* F 00020 N BRjD* YS 

RHAqooo * MTW 'l AVRN8u#5 

SUOQOOO N C!,4 AVRTBL8U 

^810030A BQE CHK1 

6®00031E B 8ETNEW 



rSP Lwj2 3 •• Al#2 BATApE 



RESET 

0»B!T#4tSPZNX 

LBADS WITH WHB#CLEARS SPfM 



6HB8T BR PREMBUNT 
PREMBUMT 
UNCmArBE IT 
CNARQE IT TB BmBST 
SET PUBLIC BIT 
INCREMENT USERS 

IP* THERE IB ANSWER, 

SWITCH THEM 

EllSE BB STBRE IN TABLES 
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1676 
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1677 ol 002D3 


R26A0000 X 


NOIDPUB LM#6 


AvRIOjB 




1*79 i 6o2 D * 


31*0001^ N 


CW#SR2 


V2 


ANS KEYtN 


l68o 01 0025 s 


timm a 


BGE 


8ETNEW 


YES, STBRE IN TABLE 


1**1 01 002^6 


C!#Di 


•1 


SCRATCH 


1682 01 002D7 


£$300066 


BE 


KEYERR 


YES 


1683 ol 602^8 


^8^00066 


BAZ 


KEVERR 


N8TMING 


1684 01 002D9 


*»00031E 


B 


SETNEw 


STBRE AND WAKE»UR 
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1686 
1687 
1688 

1689 

1690 
1691 
1692 

1693 

1694 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
1702 



01 O02DA 

01 00« DA 
01 O02DB 

01 OOgOC 

01 S0800 

01 002DE 
01 O08&F 
01 6o2EO 
01 O02E1 
01 §02E2 
01 002E3 

01 002^5 
01 002E6 
01 002E7 
01 002E8 

01 60219 



p2nFFFFF 
«;10A0000 
I.83002DE 
69400066 
SlCOOOOE 
«fi93ooo66 
442002C0 
R2CA0000 
683003E1 
*AB0026S 

P0100000 
6*3000*6 

A4C002E8 
650003E1 

S50A0000 
6^000060 



IftCK 
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L! #0 
CN#0 

BAMf 

CW#01 

BNE 

ANL2,R2 

LMil2 

BE 2 

baLjU 

A!«i 
BNE* 
BDRj12 

BIr#D 2 
STM*0 
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•1 
AVRIOjB 

$♦2 

KEYERR 
D3 

KEYERR 
DCTX 

AV R N»u#5 

KIREQN06 

REST 


KEYERR 

• ♦2 

KIREQnjD 6 
AyR!D#S 

KEYINR 



CHECK AVRID 



already locked, check f8r dismount 

exclusive 

must be same sn 

GfT DCTX FOR *EQU 



IS IT NEEDED FBR RUNNING BATCH 



YESff 

*1 JUST SET AVRID 
t A N o PUBLIC* REQU 
SET LBCkEO 
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1733 
1« 
2« 
3* 
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5* 

6* 
7* 

8* 
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10* 
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12* 

13* 

u* 

15* 
16* 
I7* 
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20* 

21* 
I74I 
17*2 

1703 

1744 
l745 
17*6 
1?*7 
i748 
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1750 
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THE F8URTH (I FINAL) FUNCTION IS T8 STORE AWAY «U/Rl 
INTS THE APPROPRIATE AVRTBL ENTRY T0 REELECT THE 
*E V !N, TWB ReUTINfS ARE USED! SRCHaVR LSOKs r 8R A 

matching av r tBl ent*y when t«e se*iaC* specified 1 

THE KEY** (REPRESENTED IN R14) D©ES NST MATeM THAT 
ALREADY IN THE AVR TABLE (REPRESENTED IN R12)t THIS 
8CCURS WH|N A UNIT SWITCH IS E*PL9YeD, wH£N A USER 

has requested this serial* on a different drive* a* 1 
tH| serial* was previbusly mbunteD bn a different 

DRIVE. IF A M^TCH TS FfiyND* and d&es nbt change tape 
RE$9URCE»TYPE »R CAUSE CBNFUSIBN BY BEING IN USE, ITS 
USER IS AWAKENED, THE AN6 FILENAME IS MBVEO T9 THE 
NEW ENTRY AND THE 8LD £NT*Y IS CLEARED, SeTNE^ ST&Re! 
AWAY R14/R15 INTB AVRTBL, SERBES SBLICIT, WAKES UP THI 
USER ASSOCIATED WITH THE AVR ENTRY (AVRlDj JF 
APPR9PRIATE, RESETS ALL ANSFLGS E* C £PT *BLPt AND 
tMS' (IF TAPE M8UNT) AMD SFTS The f AK» BIT (IF Am AnS 
KEYIN • 
*#♦#*###*♦##»#*#•#»•###•*••#♦#•##*♦##♦#*#»###*♦####*###**###**** 
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BAZ 
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B!R*iO 

AI#<» 

L!#Dg 
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DCTK 
DCT4,4 

5 

CHK 

03 

**2 

batape 

Av»TBLSU 
CHK 

avrtblsu .,_.. _... 
AVRtBLNE*AVRTBL$IZ GENTRIES 

avrtbl*batape*bataPF** test SN 



Search avRtBL fbR match 
get device type 
fbr tapes 

IF SWITCH, WE KNSW WHE&E IT S&ES 



nbt scratch 
seacrch f9r .1 
Start dctx f&r tape 
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8ETNEW DftNE IE PACK 
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N» TRY NEXT 

N8T TNERE# JUST PUT IN THIS 8N£ 

RESBURCE SWITCH O.K. E»R PACKS 
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A LL IS ».Kf 
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N6TUN1 Q UE TExT c ' N8T UNIqUE* 



SET ENTRV 

SET FBR WAKEUP 

SET ID 

dbne if pack 

Set prbpeR ans fugs if tape 

clear mbst 

SET ANS KEYlN rLAQ IF PRBPER 
Y2 TB XS 



GET DCTX 

TYPE 0N »C 

LIKE SYMBI8NT MESSAGE 



M^SSA Q E? YYNOO N»T UNIQUE 

meaninqi serial n umber cs^rCicT HAS ©CCURREDl BMLY BNf DISK 

PACK WIT N A GIVEN SERIAL * MAY Be ACTIVE AT ANY P9JNJ 
IN TIME* BNLY 9N£ PRe.MBUNTED TAPE ^ A QlVpN SERIAL 
# M A Y B E MOUNTED AT ANY PftlNT IN Tl«E t 

ACTIBNj OISPLAY VBLUMe SERIAL NUMBERS AND 08 FR&M TM^REt 



*8# 
#8* 



HOI 



17842 Sgp 08# »7r 




8*3 




844 ol 00333 


AyR 


845 


846 


♦P* 


847 


*F# 


848 


♦F# 


849 


•F» 


850 


*F# 


85 l 


*F# 


852 


*P# 


853 


*F# 


854 


**# 


855 


*D# 


856 


♦D* 


857 


•D# 


859 


*D« 


860 


**# 


861 


•## 


86 


*,#* 


863 


*D# 


1* 


•D# 


865 


*#• 


it* 




868 


**• 


869 


•#• 


87O 


♦ ,# 


871 


*## 


872 


##» 


873 


♦*♦ 


874 


S* 


875 


♦*# 


876 


*#* 


877 


♦,• 


878 


*#• 


872 

ftfiU 





*A$E 
RES 
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##**#*♦♦####*#*»*•##*•#**♦#*#•*♦*#•##»####*######**#*##♦•##*##**###** 



NAME I 



AV« 



PURPOSE! AUTOMATIC VOLUM E S|R!At NUMBeR RgCOGNlTtON FOR 
TApgS ANP PRIVATE PACKS, 

DESCRIPTION! R k aDS LaBe^ ?*** bgVfC| # OgTgRWlNES WH F TMgR ANS 9 
XgR3* 0* p ACK# aNO T« u NOUrg INTO m OUNt C&GjC *$ 1^ 
A MOUNT NOD,SN §R AN8M0UN? N&DiSNNNNN MAD B £EN KEylNE 



NAME I 



AVR 



REGISTERS! ALL VSUaIILf 

CALL I kEyIN bRARCAcS T8 AyR, WHICH RETURNS TO KEyTNRt 

INTERFACE! NEWG 

INPUT R7§DCTX »F DRIyE TO USE 

output avr tables set t© reflect presence ©? tape or pack, 
description avr e n t r y is checked t© assure ©pe*ati©n will not 

DISTURB THE WRONG DRIVE. IF DRJV£ IS A PACK, t*E VT&C 

IS READ AND IF VALIVTHf sN * s us E D t * r TAPE* THE 
TA^E IS ^BUND. T He FlRgj ^ECORD IS REA& AND CMeC«E d 
FOR »V©H» IN EBCDIC OR ASCII, IF ASCII THe TA p | IS 
rEW©UnD a G a Xn' AS CtI M©D* SET A n0 J' h € Pr©CESS rEPEATE 

if not !v9llf# a space file forward, space file back, 
back p records* and read one record sequence is done 
t9 atte mp t to Read the ilbl Record, if not found, 

THE TAPE IS rEJEcTIq wITM AN »AVr Err» HESSAQEt 
THIS MESSAGE IS ALSO OUTPUT IF TME«E 16 AN ?/9 ERROR 
IF THE ««CORD «EAD IS LESS THAN .(g BYTES. 
I* ANS # THE AV» 'iNfUV IS CHEWED T© ASSURE THAT IT 
DOES NOT ALREADY BELONG TO SOMEONE ELSE# WAKING TMAT 
USER IF 3©t THE LABELS ARE THEN EXAMINED AND THE AVR 
TABLES S&T WITH ALL *e*TINeNT &ATA. THe ASSOCIATE^ U S| 
I* ANY, IS THEN W§Kg \f ASLEE^j aNO tHe «OU T fNE E*ITS 

for x g R©x LaB|L$. the srcmavr Routine is u$e& t© 

LOCATE T H E TAP| OR ANY DUPLICATES THE*E© r AND PROCESS 



HOI 



17?4 


2 5 


3EP 08# 


»7S 












1881 










*** 




THE TAPE IN 


a manner anal&qgus ts ans, abOvf. 


1* 
1882 










# 


01 


00333 


32500007 


A 




LW*«5 


R7 




1883 


01 


00334 


P0500000 


N 




AI#R5 


•BATAPE 


A V «X 


1*84 


01 


00335 


A9loo39o 






BLZ 


avrbierr 




1885 


01 


00336 


73OAOOOO 


X 




mtb,o 


88L|CfT# R 5 


AVR SBLfCITEO 


1886 


01 


OO337 


I.930033D 






BNEZ 


AVRl 




1887 


01 


00338 


12EA0000 


X 




LD#03 


AVRTBL#R5 




1888 


01 


OO339 


^lrooooi 






CWj04 


VCtFF 




t 889 


01 


0033 A 


A9400390 






BANZ 


AVRBIERR 


BU8V-I6NBRE 


1890 


01 


00333 


s 2FA0000 


X 




LM,^ 


AVRN0U#R3 




1891 


01 


O033C 


A9300390 






BNEZ 


AVRBZfRR 


BUSY ALSB 


1892 




01 


003*0 




AV«1 


EqU 


$ 




1893 


01 


0033D 


32AQ033D 






LW#SR3 


$ 


SET PACK FIAQ 


1894 


01 


0033E 


497 o3B7 






»R#R7 


*? r o*oo , 




1895 


01 


0033? 


31500000 


N 




CI#^5 


AVRTiLSI* 


IF PACK, JUST READ VT8C 


1896 


01 


OO34O 


*8100369 






BSE 


R0?L8L 




18§7 


01 


00341 


«2a00341 






LWjsR 3 


#t 


SET TA*E '"LAG 


1898 


01 


O03<*2 


P2000000 


A 




LI#RO 







1899 


01 


00343 


750AO0O0 


X 




STBiO 


AVRFLGS#5 


INITIALIZE AVRFLQS 


1900 




01 


OQ34* 




REAVR 


SOU 


$ 




1901 


01 


00344 


32C0001C 


N 




LW#r12 


yo8 


REWIND 


1902 


01 


00345 


*>A800395 






BAtiSRl 


PBITAPE 




1 9 03 


01 


003** 


aABqo38i 






BAl#SR4 


8ETrU3l 




1 9 0* 
I9O5 


01 


603*7 


6*4qo34E 






BCRf4 


NGCC 


N» CBDE CONVERSION 9N DRlv/E 










• 




SET CbOe C9NVFRSI8N MBDE 


1906 


01 


00348 


32C003B3 






LWjRlH 


MCPC 




1907 


01 


00349 


I^FOOOlc 


N 




LW'R 15 


Y08 


EBCDIC 


1908 


01 


O034A 


T02A0000 


X 




LC 


AyRFL(3S#R5 




1*0 9 


01 


5 3^a 


*34003^D 






BAZ 


$♦8 




1910 


01 


0034C 


32F00010 


N 




LW,*15 


n 


ASCII 


1911 


01 


0034q 


*A800396 






BA^iSRl 


pOSTApEl 




1912 




01 


003*6 




N8CC 


EQU 


• 




1913 


01 


0034E 


P2C00000 


A 




Lf#Rl2 





READ TAPE 


1914 


01 


O034F 


»2EOOOOA 


A 




LT#R1^ 


10 


COUNT 


1915 


01 


0035o 


aA8qo397 






BAL.SRi 


READTAPE 





114 



HOI 



178 
916 
9l7 

918 
919 
920 
981 
922 
9g3 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 

935 
936 
937 

938 

939 

940 
941 

942 
943 
944 
945 
946 
947 
948 
949 

950 
51 
52 



42 s|p oa# 

Ot 00351 

01 00352 

01 00353 

01 00354 

01 00355 

01 00356 

01 00357 

01 00358 

01 

01 00359 

01 6035A 

01 00358 

01 0035C 

01 00330 

01 O035E 

01 0035F 

01 00360 

01 00361 

01 00 36 1 

01 00362 

01 00363 

01 00364 

01 00365 

01 60366 

01 00367 

01 6o3*& 



01 00369 

01 0036A 

01 O036B 

01 6o3*C 

01 00360 

01 0036E 

01 0036F 



aSCooooo X 

3lCoo3B5 

^9300359 
P2100004 N 
6AB0O000 X 
.12900000 X 
32E00002 A 
6*000373 
003R9 

3ICOO3B4 
^9300361 
AAB00381 
6B4003AA 

72EA0000 * 

SOEOOO4O A 

75EAO00O X 
*8000344 

3? C 00Q00 x 
6*800395 
32C00000 X 

6 A800395 
32C0001B N 
6A&00395 

32C0001B N 
6A800395 



*2C00000 A 
*2E0O00C A 
aA8qo397 

31000010 N 
a94003» a 
12C00000 X 
11C003B6 



Lw#l2 
CWM2 
8NE 
LI*R1 

BaLjSR* 
LW#8R2 

LW#03 
B 
N8TV6Lt EQU 

CW,12 

BNE 

BaLjSR^ 

BAZ 

LB#14 

A!#14 

STBjRH 

B 

chxilbl res 

LW#Ri2 

BAL,SRi 

LW,R12 

BaL,S r 1 

LW # R12 

BaLjSRI 

Lw#Rl2 

BALjSRI 



# 
• 



* 
RDiLBL 



jl&ASE 
Vftll 
N9TV©L1 
BA(J!BASE)+4 

si*pack 

R2 
OaiRCH 

$ 
ASCVBL1 

CHKlLBL 

3|T^LGt 

CCERR 

AVRFLt5Si«5 

X'40t 

AVRrLQS'«5 

RIAyR 



Yft7 

PB8TAPE 

V06 

PBSTAPg 

V04 

psstape 
yo* 

PBSTAPE 



SENTINEL TypE 
ANS TAPE 
NftT ANS 



AN8M9UNT FLAq 
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NftT ANS«CH£CK XE«8X LaBeL 
ASCII TApE BN NBN-ASCTl ORTv* 
SET ASCII 



PftSITIBN THE TAPE FBRWARD 
ftVE* A TAPE MA&K, TMgN 
BACKWARD 8VER THE WaRK, THEN 
BACK »V£R the assumed 
IACN SENTINAL AND THE 
ILBL SENTINAL* 



TAPE If 
If IT I 

LIil2 
Lf#14 
BAl*SRj 

CWjRq 

banz 

LW,12 
CWj12 



NftW P8S!TJ9N E JUST B&**£ THE HBl 
S A XE*BX LABELED TApF 




it 

reaotape 

Ht6 

avrlbcR* 

JIBaSe 

ILBl 



BYTES IN jLBL SENTINAL 

l»ST DATA 

YEP, N8T |LBl SENTINAL 
BKj PICK UP WHAT WE READ 
BftT WHAT W E WANTED 



HOI 



171 

1953 
1954 
1955 
1*56 
1957 
1958 
1959 
i960 
1961 
1962 
1963 
1964 
1965 
1966 
1967 
l968 
1969 



42 SEP OS* 

01 00370 

01 6o37t 

01 0037? 

01 003 7 3 

01 00374* 

01 00375 

01 Q0376 

01 00377 

01 00378 

01 00379 

01 0037A 

01 0037B 

0* O037C 

01 O037o 

01 O037E 

01 6o37r 

01 00|g0 



f 7R 

6930038A 
32EQ0001 
?|9Q0000 
3 5E 0000 6 
32800380 

70200009 

A8Foo378 
73200008 
35800000 
J>2100000 
6ABO00OO 
125:00006 
»2 6 00000 
12CA0000 
»2FooOOD 
6*000230 
076B4O7B 
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06SRCH 



MSST 



8 Nir 

LW#03 

L!jSR2 

STW,03 

LW#SR l 

LC 

BCR*l5 

MTBj2 

STw«SRl 

Llil 

BAL^ll 

LW#03 

L!*R6 

LOiOl 

LWi04 

B 

GEN,g#2<f 



AyRLftERR 

J|BaSe*i 


NBT LABELED 


FETCH SN 


JIBASE*6 


M&UN KEYfN 


SAVE SN 


MSQt 




5K2 


MAKE MESSAqE 


•*f 




%ni 


AN8SN 6 BYTES 


JIBASE 




JIBASE 




bCqueue 




J|BA$g*6 


REfTBRE SN 





NB 10 


avrtbl*^ 


®QO.AVRTBL 


02 


FLAGS 


QfTAVRi 


TRUNDLE INTB MBUNT LBQlC 


7# f # *» 





HQl 17:42 SEP 0«' »7* 



1970 
1971 

1* 
1972 




01 


003*1 












1973 










I974 










1* 










1975 


01 


00381 


4*1002C0 




1976 


01 


00382 


72120000 


X 


1977 
1*78 


01 


00383 


70220000 


X 


01 


6038<f 


pSOOOOOB 


A 
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PAGE 
GETFLGi EQU • 

*D# NAM£* gET^Lsl 

♦#* DfSCRIPTI&N SETS THE CONDITION C©DES FR8*1 THE TB»FL3Si ENTRY 

V* F&R TMC TAPE ORlVr WMftSff AVRX IS IN R 5# # 

♦####»######♦#*•»♦*♦#«##♦##»#*##♦####♦##•*♦♦########•**♦•###*####*####* 

ANLZ,Rl DCTX C»MPUTF OCT INDEX 

L8#l OCUji 

LC TBtFLQSIM 

8 *$R* 



HOl 171*2 SEP 08# f 7R 
1979 

1* 
1980 
1981 

198 2 
1# 

1983 
1984 



11 



8 



%• 

1985 

1*86 

1987 

1* 
1988 
1989 



lggO 
1§91 
1992 

1# 
1993 
1994 



01 00385 

01 00386 

01 00387 

01 00388 

01 00389 



Ol 0038A 

01 0038b 

Ol 003SC 

01 no3BD 

01 O038E 

01 O038F 



Ol 00390 

01 00391 

01 00392 

01 00393 

01 003*4 



I.A10032D 
oE*0ClE5 

D9*oC96l 

r)6*0C5D9 

H906D940 



&A10032D 
10*0C1E5 
09*oD3Cl 

f2C5D3*0 
T5D9D906 
n9*o*0*0 



AAtoo32D 

ftP*0ClE5 A 

H940C4D9 A 

r9E5C5*o A 
T2E4EHE8 A 



PAGE 

•a* message; vvndd av* I/b err&r 

*B* MEANING, j/a gRRBR 8CCURRED TRYING T8 READ THE LABEL 

♦8» ACT!8 NJ TRY A DIFFERENT DRfVp BR GlV£ UP, 



AVRI6ERR BAl #1 
TEXTC 



AVRS*1 

f AyR I/O ERRBR? 



*8* MprSSAGE* YYNDD AVR LaBeL ERRftR 

*8» LEANING: N8 RgC8GNjZ A BLE L A BpL C&ULD B E F^UND 

•a# aCTI»N« USE M8UNT KEYlN BR Q IyE Up 



avrlberr BaL,1 

TEXTc 



AVRS*t 

* AVR L A8E L ERRBR* 



•8# 

*b# 



MrSSAGEI YYNDD AV« DRIVE BUSY 

M KA NlNG! ORlVf 18 N»T TA*E BR *A C * « R IS IN Us E a l R|A&*» 

AcTI© N l RCQulST PRlVE AND TRY AGAIN Br GIVE UP 



♦###*####♦#####•*»♦••##••**#*»##»»•#•##**#♦#*»###*##*♦#♦•#**###**♦*♦*** 



AyRBjERR BaL#1 
TEXTC 



AyRS*l 

t AVR DRIVE BUSY? 



MOl 1714 


2 i 


3EP OS* 


!7§ 




1995 










1996 

t M 




01 


00395 




1* 

l 8§7 
1998 










1999 










2000 










2001 










1* 










2002 


oi 


00395 


*2F00000 


A 


2003 




01 


00396 




200* 


01 


00396 


*2E0O000 


A 


2005 




01 


00397 




2006 


01 


00397 


120003A8 




2007 


01 


00398 


15000006 


N 


2008 


01 


00399 


32100000 


X 


2009 


01 


0039A 


72120000 


N 


2010 


01 


0039B 


^5100009 


A 


2012 


0} 


0039C 


*Q100Q0* 
*2D0Q000 


N 


01 


00390 


N 


2013 


01 


0039E 


49CQ0007 


A 


1* 
2* 


81 


0Q39F 
O03AO 


pOOOOQOg 


A 
A 


2OI5 


01 


003A1 


^ABOOOOO 


X 


2016 


01 


003*2 


*80003AE 




2OI7 


01 


003A3 


3200000^ 


N 


2018 


01 


003a* 


SlOOOOlC 


H 


2019 


01 


003A5 


A8100385 




2020 


01 


003A6 


F8000008 


A 


2021 
2023 


















202* 


01 


6o3A8 


R5C0000A 


A 


2025 


01 


003A9 


F800OOOB 


A 
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PAGE 
P5STAPE ECU * 

##############»•##*#####*♦*♦******♦♦*####♦#*#**»♦»#•***###•*##*•**♦*»** 
#D# NAMf! P83TAPE 

*#* entry? pbstapei* keadtaRe 

• ## DESCRIPTION ROUTINE SETS Up AND pERFORMS TApE I/O SprRATl&NS 
♦,# VIA NEWQi P8STAPE ENTRY FORCES 1 RECORDj SIZE 0# 

S# P8STAP£l FORCgS StZfr *ER8, *EADtaPE f &*CeS NeITH^R, 

♦###♦*#♦#*##♦##♦♦##••#♦♦*#***♦**##*#♦##♦##♦#*#####♦♦»##**♦♦♦**#♦*•*#*** 

LIjRlB "~ 

pOSTApEl ECU * 

LtiRl* 
READTAPE EQU 

LD#o 



EAPR86 

STDiO JIBa8E*6 

LW#R1 SlCUN 

LiAOiRl UX|J!T#«1 

StS*Rl f 

A!*i JiBAS|»JUlT*4 

LI*t3 BA(JJBA$I) 

»R#Rl2 R7 

tW#Q 1 



^RECORDS 

PUT EA IN JlBASE 
FIND IT pHySICALLY 



BUFFER ADDRESS 



EAPR&Q 



AI#0 

BaL.sR* 
B 

lw,ro 
cw,ro 

BSE 
B 

BOUND 

STW<12 

B 



NgWQ 
OEVIGEDO*N 

JIBaSe** 
Y08 

AV«I»ERR 

♦SRi 

8 

#Rl0 

•SR* 



SET END ACTION INF8 

f/0 ERR8R 

VEp 



HOI 17;42 SEP 08* '7k 
2026 
2027 



120 



PAGE 

SPACE 



2028 

1* 

2* 

2030 
2031 
2032 

1* 
2033 
2034 



2035 
1# 

2* 

2037 
2038 

1* 
2039 

2040 



20*1 



01 003AA 



CCgRR 



SOU 



0* 003AA 

01 003AB 

01 003AC 

01 O03A0 



01 003AE 



£Al0032D 
OB40C1E2 A 
T3C9C940 A 
P3C107C5 A 



01 003AE 

01 6o3Ar 

01 003Bo 

01 6o3gl 

01 003B2 



AA10032D 
OC40C4C5 
F5C9C3C5 
40C406E6 
n54 4o4o 



*G# MESSAGE? YYNDD ASCII TA*E 

*»• aCT!© n RE M »UNT *N ORlVg W IT M ASCII QPjlQUs dR A&&RT J9 b 

### MEANING TAPE fS IN AScM c*0E AND C AN BE READ ONLY BN NS TAPE 

### DRIVES WITH THE C»DH CONVERSION 9PT!&N f 



bal # i avrs*i 
texTe ♦ as c ti tape* 



DEVICEDOWN EQU * 

*#* ACTION 
#, # MEANING 



message* yyndd device down 



USE AN9T H gR DRIVE 

DEVICE CURRENTLY pARTITIBNfD 8l»T 8F SySTEM 



BAl*1 AVRS*1 

textc t device DewNt 



SPACE 



2042 
2043 
2044 
20^5 
2046 
2047 



01 OQ3B3 
01 003B4 
01 OO3B5 
01 003B6 
01 00307 



00000000 N 
K64F^C3l A 
E5D6D3F1 A 
?Ad3c2d3 A 
OOFFOAOO A 



MCFC GEN, 8*24 FCMCiO 

ASCV8L1 DATA Xt564F*C3l» 

V8L1 TEXT »VBLl» 

KBL TEXT »| L Bl» 

XFFOAOO DATA X'^FOAOO* 



ASCII VGLl 



HOI 17U8 SEP 08# »7B 131 

20*8 01 O03B8 00000088 A X8g DATA X»88f 



HO 1 l 7l** SEP Oa# »7B 

30*9 

2051 OX 003B9 

2052 

20§3 

2054 

2055 
2056 
2057 
2058 
2059 
20 6 

2061 
2062 

1* 

2* 

3* 

4# 

5# 

6* 

7* 

8* 
9* 

10* 

11* 
12* 
13* 

14* 
15* 
16* 

1 

lg» 

20* 
21* 
22* 

23* 

24* 



122 



7# 

8* 



K IREQ 



PAQE 

res 



REQUEST KEYIN 



pURpOSEt T8 pR»CE8g THE * REQUEST RTt (RES»URCE«TyPE) F»RM 8F 
THE fREQUEST? KEYIN, 

DESCRlpTlBNf SCANS THE AyR TArLES F&R AN AVAILABLE RESOURCE 
9F THE TYPE SPECIFIED* THE GPERATeR IS THEM NOTIFIED 
»F ITS AVAILABILITY »R 8F THE N£ E D T© DiSMSUNt A 
VOLUME* 



*##♦#*♦*♦##***##♦♦♦*•#####*#*#■»*#*♦####♦♦•♦####»###*##♦##♦####♦##*##*♦♦ 

*F# NAMEI KIREO 

*F* 

*F# 
*F* 

*F# 

*F# 
*F# 
*F# 

*F* 

♦♦♦*♦#♦♦#♦♦*#♦#»#*########*#*•«♦*»**###♦♦#•♦#*#•#»*#*#♦♦#♦#*#♦#**♦*♦#** 

*D# NAME! kIREQ 

*D* 

*D* ENTRY* KIREQNDD 

•ol calls kEyin f0«mat: request "ressurce-typei 

*D* |NDD I 

*0* •« »* 

*D# 

*D# 

*0* 

*D# 

*D* 
*D# 
*D# 
*D* 
*D# 

•0* 
*D* 
*D# 
*D* 
*D# 
*D* 
♦D* 
*0# 



R7 « aOR »r ke^in Parameter list 

SHlRNM, SBIRTY# TBIFLGS* OCT* 



INPUT j 

INTERFAcEl SKIFLD* CKFREE* QyEyE 
EN V I R3NMENT | MASTER/MAPPED 



»8TAIN the RESftURCE-TYPE 
^CHARACTER 9PTI6N IS 




M01 



t7«4 

25* 
26 # 

27* 

28* 
29* 
30* 

31* 
32* 

33* 

34* 

2063 
2064 
2065 
2066 

20^7 

2068 
2069 

2070 
2071 
2072 
2073 

g080 
2081 

2082 
2083 

2085 

2086 
2087 

2088 

2Q8S 
20 9 

2091 
2092 
2093 
2O94 
2095 



2 SEP 08* f 7* 



01 6o3B9 

01 003BA 

01 Q038B 

01 Q0 3BC 

01 003BD 

01 003BE 

ol 6o3Br 

01 003Co 

01 003C1 

01 003C2 

01 003C3 

01 003C4 

01 O03C5 

01 003C6 

01 603C7 

01 003C8 

01 003C9 

01 003CA 

01 003 CB 

01 OO3CC 

01 003CO 

01 003CE 



aaboooso 

*98p0066 
^3^t O 0O4 
693oo3 DA 
92100003 
*2EEo005 

*5E00070 

J>24ooOOA 
S>lEo04E3 

*83oo3CF 

P2^0000| 
?lt0C4D7 
*83003CF 
53^0000^ A 

P2200000 N 
R1e40000 X 
*83003CC 
#»42oo3C8 

^ 8 000066 

7 24#0000 X 
70280000 X 
A8800066 



123 
*0* THAT THE DEVICE IS A TAPE OR PACK, AND CKFREE IS 

*D* CAULgD TO C>ETr R HlN| IF" TMg DeVICe IS AVAILABLE. WH£N 

*D# THE SP^nnED O^VtCp OR A DEVICE OF THE SAH r RESOURCE 

*d# type specified 16 f§und to be available, an 

*d* appropriate message *s sent to the operator: 

*D* NOD (IF THE DfVlCE IS READY) 

*D* NDO DISMOUNT SCRATCH REEL % 

•0» NDD DISMOUNT AND SAVE REEL # 

*D# OTHc« w !SE THE OpERATOR IS T©LD TO TRy ffATERi. 

*•♦#♦####♦#♦♦♦****♦#*##♦***#**#***##*♦*«#♦♦♦#**•**♦****♦*#**#♦#******** 



01 C03CF P220O000 N 



* 

reo*rs 



REQTY 



BAL-SR4 
BCS,8 

MTW#»2 

BNE2 

L!*Rl 

IW*D3 

SLSiD3 

L!#R4 

C!#D3 

BE 

LI#Rif 

CI*D3 

BF 
MTH*»1 

L-!#Rg 

Ch,d3 

DR*R2 
B 



QKlFLD 
KEYERR 

KFL#R7 

KIREQNDD 

3 

KPLBjR7 

• 16 

10 
fMTi 

REQTY 
X*Bt 

IDP' 

REqTY 

D3 

5V*R8?Z 

SHlRNM,R2 

REQtRS 

$•2 

KEYERR 



LB,R* SB«RTY,R2 
LC TB»FL0S'R4 
BCR#8 KEYERR 
CHECK FOR FIRST AVAIL 
TYPE IN Rfc 
L I#«2 •AVRTRtNE 



NDD 

later 



index 



GFTSIQN EXTENDEDt 



t • 



tfst for Resource t*pr 
fbund one 
test again 

no match.error 
(Set device type 

FfND 0U T WhAY KIND 

NBT TAPE OR PACK "'ERROR 



H<n 



1784 


2 SEP 08* 


f 7B 




2096 


01 003DO 


*2300000 


N 


3097 


01 O03D1 


^HOOOOA 


A 


2098 


01 003D2 


^83003^6 




2099 


01 003D3 


72^60000 


X 


2100 


01 603D4 


•UCOOOO* 


A 


2101 


01 003D5 


ft93 00 3D7 




2102 


01 60306 


A*5003£9 




2103 


01 003D7 


J»0300001 


A 


2104 


01 003D8 


A52003D1 




2105 


01 003D9 


*8000068 





REQTYl 



«EQTY2 



LIjR3 

Cf#R4 

BE 

BNE 

BAL*5 

AT#R3 

B!R*R2 

B 



BATAPE 
10 

REQTY**! 

DCT<*#R3 

R4 

REQTY* 

CKFREP 

1 
REQTYi 

KEYERRl 



124 



TYPE 



N9NE 



LATER«Rl 



HOI 



i7» 

2175 
2176 
2177 
2178 
2179 
2180 
2181 
2lg2 

2lg3 
2184 

1* 
2186 
2187 
2188 
2189 
2190 

2191 
2192 
2193 

2196 
2197 
2198 
21^9 

2200 
2201 
2202 

1* 
2* 
3* 
4* 
5* 

6* 

7* 
8* 
9* 



42 



01 



SEP 08' 
$03DA 



»75 



01 
01 



01 

°i 
01 

01 

01 

01 

01 

01 

01 

01 



003DA 
OO30B 

og3£c 
003DD 

6o3° c 
603DF 

603EO 

6o3Ei 

003E2 
003E3 

6o3 E * 
(So3^5 
003^6 
003^7 



322EQ005 A 
?5200l70 A 

* AB QQQ00 x 
^9800066 
724*0000 x 
70280000 * 
A8800066 

P2100003 A 
P0200000 N 
*A5oo3E9 

*$0000 6 & 

32*00H B 
3 5C 3 FFFA A 

aABqoOOO * 



!2S 
PA6F 
KlREQNDD RES 

####♦#*##*##*♦*•#•#»•*#♦##*♦*♦#*♦#*##♦*#########♦♦#♦#*♦##*•#####*»***** 
*F* NAME* KIReQnDD 

*fl pURp»SE| TO pRftCE^S THE » REQUEST NDD» F8RM 8F TMfr » REQUEST? 

*F# KEYIN. 

*F# 

*F# DpSCRlPTieNI T H£ DgVlCE ADDRESS !S VALIDATED AND JH^ 

# F* A pp R»P»IATE AVR TABLE ENVIES A«f CHgCK F D T 3 SEE I F 

*F# THE DEV^E IS A V AlLA a LEj THE 8pER« IS THEN NiSTlFlED 

*F# APPROPRIATELY* 



LWjR? kPLb'R? 

SLD4R2 .16 

BaL*SR<* devck 

BCS,8 KEYERR 



Device pointer in r 2 



LBjR* 

LC 

BCRj8 

KIREQND6 L!#R1 
AIjS 
BALjRS 
B 



KIPQUE LWjO 

KlRQUEi BAL,SR4 QUEUE 



ST 



*0\ 



DCT^jRg 
TBIFLG8#*# 

keYerr 

3 

•BATApE»A V RTBLNE 

C*FREE 

KEYERR t 

kireqrk 

KlREQBLK»KlREQi U »f jRi 



get device typf 

NOT TAPE 8R p ACK 
LATER 



LATER 



*8* MESSAGE* NDD 

• 8* 

#e# MF.ANINQJ the requested unit IS EmpTy 

♦e# 

*a# ACTI8NJ N6NE 

• ©###♦#♦#**••■*♦♦#»♦*#*##**♦#♦♦*♦*•#♦*#####«*#•*♦♦*«*♦***♦«**«*#♦♦*****■** 
*8# MESSAGE: NDD DISMOUNT SCRATCH REEL # 

*9# 



M01 171*2 SEp 08* '7* 126 

10* *5* MeANlNGf THE SCRATCH TA?E 6N TAPE DRIyE • NDD f IS N6 L9N3ER 

11* *8* NEEDEDt 

12* *e# 

13* *6* AtT!9 NJ DI8M8UNT TAPE SPECIFIED BY 'ReeL * f I? T^E TAPE DRIVE 

i** *e* is n*sd*d» 

15# #0 #***#♦#*#♦#♦*»###**##♦#**»*♦♦♦#♦*»##♦*♦#♦•*#**#*♦#♦*#»## »««»»«**#»*## 

16* *6# MESSAGE? NOD DISMOUNT AND SAVE REEL # 

17* *e# 

18* *8# MEANING! THE TAPE &N TAPE DRIVE *NDD» IS N6 L9NGER NEEDED, 

19* *8* 

20* *e* ACTI© N » DISM0UNT TAPE SPeCIF^D BY »ReeL # f AND Save. 

21* *****#####♦###*****#*♦#*****#******•*####*•##*****##*•#####*#♦#»♦##♦#** 

2203 01 003E8 A&00006D B KEyINR ExIT 



«01 



17142 
1* 
2* 
3* 
4* 
5* 
6* 
7* 



8* 
g* 

10* 
11* 
12* 
13* 
14* 
15* 
16* 
17* 

18* 
19* 

20* 
21* 
22* 
23* 
24* 
25* 
26* 
27* 

28* 
2g* 

30* 
31* 
32* 

33* 

34# 

35* 
36* 
2207 



SEP 08' f 7K 
01 Q03f9 



1 27 

qkfree equ * 

##*♦*##*#####*****♦•***##**********#*♦*♦**#*******#♦*****#**#*##******* 

*F# NA*H CKFREE 

*F# 

*F* 

*F* 

*F» 

*F» 

•###♦######•##**#*#••##*##****##**###*###•#♦******#******#***##******** 

*D* 

*D* 

*0* 



puRpSSE! SUBROUTINE TO PeTeR M !NE If A SpEcIflC TApf §* pAeK 
IS FRrEt 

DrSCRJPTIBNI SEE f P« REPORT 



N»AME« 
CALL; 
IMpUT? 



OUTPUT* 

RrQTSTERSl 

INTERFACE! 



CKFREE 

8AUR5 

R2 * 

AVRTBL, AVRN6U# 

ANSFLGS* AVRFNMj 

BN L Y R2 AND R3 ARE PRESERVED 

RAT|DCT4# G*B 



(SEE DESCRIPTION BELOW) 

X*B A TApE-AvRTBLNE 

<WMERE X . DCTX OF DEVICE TS BE CHECKED, 
AVRID 



*D* 
*0# 

*D# 
*D* 
*D* 
*D* 
*D* 
*D* 
*D* 
*D# 
*D* 
*D* 

*D* 
*D# 
*D* 
*D# 
*D* 

*D# 

*D# 
*D# 

*##♦#♦##*#*#*#***#«**##♦•**********##*##***♦#**#**#******#**♦********** 



ENVIRONMENT! MASTER/MAPPED 

DEScRlpTlBNl THE AyR TA B Lf:$ (AyRTa^, AyRNOU# AyRlD) ARE 

scanned re determjnf if the specified device is in 

USE, I F IN USE* RETURN IS *AD£ tO BaL*1J fF NOT I* 
USE, MISCELLANEOUS aVR TABLES aRe ZE*OeO UNSFLGS, 
AVRfN M T)# QmB IS CEILED TO OBTAIN A BUFFER' AN 
APPROPRIATE MESSAGE 18 FORMATTED AND CKFREE EXITS TO 
KIRQUE UN KIREQNDD) TO ISSUE THg; MESSAGE. 



01 003E9 
01 003EA 



?2EQO00O 
*2FQ0000 



L?,D3 
LIiD4 



HOI 17J4 


2 


2208 


01 


2209 


01 


2210 


01 


2211 


01 


2212 


01 


1* 


01 


2214 


oi 


2215 


01 


2216 


01 


2217 


01 


2218 


01 


2219 


01 


2220 


01 


2221 


01 


2222 


01 


2223 


01 


2224 


01 


2225 


01 


2226 


01 


2227 


01 


2228 


01 


2229 


01 


2230 


01 


2231 


01 


2232 


01 


2833 


01 


2234 


01 


2235 


01 


2236 


01 


2837 




2238 


01 


2239 


01 


2240 


01 


2241 


01 


2242 


01 




01 


2243 


01 



SgP 08# 
003EB 
003EC 

6o3E° 

<*>03Ee 
003EF 

503^0 
003? 1 
003FJ? 
OO3F3 
003^4 
OO3F5 
003F6 
003F7 



OO3F9 
003FA 
003FB 
003FC 
003^0 
003Fg 

003PF 
OO4OO 
00401 

60402 
00403 

00*04 
00405 

g0406 

00407 

01 

00408 
60*09 
O040* 
0040B 

OO40C 
0040D 
0040E 



»7R 

*&000037 

12C40000 

P02000Q0 
plgOOOOO 

*81003F* 

53040000 
1,8300421 
70200000 
^80004>0g 

SiDooOOO 
^9#003F8 
90DOO0OO 
*9loo3FB 

5304Q000 
^8300421 
A80003F2 
POCOOOOO 
*83oo3Fg 
B2B40000 
?1B00001 

^93003^2 
R5E40000 
55g;40000 

P0200000 
AABOOOOO 

5|Fg 00 00 
35B00000 

90200000 
f.8000421 
004H8 

AQ000027 
A80AQ00O 
5A5A4040 
T1F0F040 
r4c9E2Q4 
H6E405E3 
40E2C3D9 



CKF5 
CKF6 
CKF7 



CKF8 



wDjO 

LD#Ol 

AI*2 

CI, 2 

BC3E 

MTHj 

BfZ 

AI#2 

B 

CWjOg 

BaNZ 
AI*13 

BLZ 

MTN, 

bez 



128 



A!#12 

BEZ 

LH,SR4 

CI/SR4 

BNE 

STH,14 

$TH'l* 

AI#2 

BALill 

MTM,»1 

STW*SR4 

A?j? 

CKF10 EQU 

WDiO 

B 

KlREOlll TFXT 

«IREQDD TF*T 

TE X T 

KlREQTi TFXT 



X»37» 


D 


AyRTBUAyRTBl 
AVRTBLNE 


.NE*AvRTBLNEj2 


ADJUST 8FFSET 


avrtblsi* 


TARt 


CKF7 


m 


AVRlD,f 


X Kt USE 


CKZER81 


m 


•AVRTBLNE 


ADJUST 8FFSET 


CKFlO 


RETURN 


Yi8 


VER 8R INIT SET 


CKF 6 


Yps, CAN'T USE IT NOW 





IS IT PUBLIC 


CKF8 


MAYBE 


AVRN8U#2 


IS IT IN USE 


ckzerqi 


N8, WE CAN DISMOUNT 



CKF6 


YFSj RETURN 


SYSTEM PACK, RETURN 


AVRN8U12 


IS PRIV MARKED PUBLIC 


1 


IS GMftST THE 8NLY USER 


CKF 6 


NSj CAMT HAVE IT 


AVRNtU £ 2 
aVR!0*2 


YFS# ZAP * USERS 


AND M A YBf LQC< FLaQ 


BATApF 




RAT|0r.T4 




SHSRQCU#1 




SJMBSF 


KICK BATCH SCHEDULER 


pBATAPE 


AVR INDEX 


ckzer»i 

t 

X»27» 


AND GB DISMOUNT IT 


I 


o#R5 

• 1 


N» 


♦AOO » 




•DJSMBUN 11 





t ScRATCMt 



HOI 



17J42 i 


SEP 08* 


»7fi 














01 


6o*0 F 


T1E3C3C8 


A 










2244 


01 


6o*lo 


40*0*0*0 


A 




TFXT 


» t 




2245 


01 


00411 


40404040 


A 


KIreGT? 


TEXT 


t t 


rfel nr 


2246 










# 






rElEas^" buffer 


2247 




01 


00412 




KlREQDCfl 


EQU 


* 




2248 


01 


00*12 


O0AQO003 


A 




DATA 


X!OOA00003» 




2249 


01 


60413 


60008001 


A 




OATA 


X'800l» 


DfTX 


2250 


ox 


00*14 


OOOOOOOO 


A 




Pit 







2251 


01 


00*15 


OOOOOOOO 


A 




P7.E 







2252 


01 


00*1* 


OOOOOOOO 


A 




P7E 







2253 


01 


00417 


OOOOOOOO 


A 




PZE 







2254 


01 


00*18 


60400000 


A 


KlRfQBLK 


GENj15 


'17 32,0 




2255 


oi 


00*19 


oioooooo 


A 


KIREQBF 


GENj8>8 


♦16 1#0'0 


FCMiQ'OBUF 


2256 


01 


00*1A 


60000000 


A 




P7E 







2257 


01 


0041B 


OOIOOOOO 


A 


KIREOBK 


GEN,15# 


17 8*0 




2258 


01 


6o*l c 


6*00000* 


A 


KIREQ8 


GFN,8>24 4iK!REQDCB»K!REQ ln 


2259 


01 


004lg 
0041E 


40C1D5C4 


A 


KIREQSV 


TFXT 


» AND SAVE » 






40E2C1E5 


A 












01 


00*lF 


f5404040 


A 










2260 

1* 
2# 
3* 
4* 


01 


00*20 


riB?F040 


A 


KIRCN2 

♦ 


Data 


X»CiB7F0*0 f 


CBNyERSIftN 


01 


00421 


*1200000 


N 


w 

# 

CKZER81 


CI, 2 


AVRTBLSI2 




5* 


01 


00*22 


*8100452 






BflE 


CKZER93 


PACK 


6* 


01 


00*23 


T5E40000 


X 




STB,D3 


AN8FLGS#«2 




7* 


0} 


00*2* 


323Q0002 


A 




LW#3 


2 


AVRX 


8 # 


oi 


00425 


»33000ls 


A 




Ml, 3 


6** 


avrfnmtblx 


9» 


01 


00426 


4*100007 






AHilA 


BAUNITI 
VIS 


BA AVRFNMTBt 


10# 


01 


00*27 


4^100000 


X 




an*i 


EACH ENTRY 24 BYTES 


11* 


01 


00*28 


61000000 


N 




MRSiiQ 


BA(Xq) 


Zap 


12* 


01 


00*29 


6800042B 






B 


CKZg;R82+l 




13* 


01 


00*2A 


6BF0000D 


A 


CKZER62 


INT-D* 


02 


save mqr 


14* 


01 


00*28 


P0200000 


N 




AT#2 


"AVRTRLNfc 




15* 


01 


00*2C 


15E40000 


F 


CKZER6 


STD*D^ 


avrtbl*a V rtblne* 


►AVrTBLnE*2 


16# 


01 


00*2D 


6D000027 


A 




W0,0 


*»27i 




17* 


01 


00*2* 


P0200000 


N 




A!#g 


batape*a v rtblne 
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HOI 17J4S? 

18# 
19* 
20* 
21* 
22* 
23* 

24* 
25* 

26* 

2 r 

28* 
29* 

30* 
3l* 

32* 

33* 

34* 
35* 

36* 
37* 
38* 
39* 
40* 
41* 

42* 

43* 
44* 
45* 

46* 
47* 
48* 

49* 
50* 
51* 

52# 
53* 
54* 



01 
01 

01 

01 
01 

01 
01 
01 
01 
oi 

01 
01 

oi 
01 

01 

81 

oi 
01 

01 

oi 
01 
01 

oi 
01 
01 

81 

01 

01 

oi 
01 
01 

01 
oi 



Sep 08i 
6o*2F 

00*3o 
00431 
00*32 

60*33 

00*34 

00435 
00*36 

00*37 
0043g 
00*39 
00*3A 
6o*3B 
0043C 
00*3d 

00*3E 
00*3F 
0044° 
00441 
00**2 
00**3 
00444 
00**5 

00**6 

00**7 
0044g 
00**9 
00**9 

0Q** A 
0u44B 

00**C 

00** D 

00**1: 

6o**f 
6o*5o 

00*5l 
00452 



f 75 

32600002 A 

*ABo0000 X 
A8300430 
U210000E A 
32800*1C 
?23FFFEC A 

lOgOOOOE A 
32pr60*lE 

1|5F20000 A 

^OloOOOl A 
65300*36 

A6E3FFFB A 

R2ECq000 x 
*&EOOOOB N 
*2FOO000 A 
P2300003 A 
?5Eoot7C A 
»5F000 7 c A 
*43Q043F 
46F3FFED A 
?1F8Q000 A 
*8400449 
?lF60000 A 
^8400**9 

30^00*20 
35F3FFED A 

POCOOOOO A 
A830O3E5 

35C3FFF3 A 

70200000 A 
*9l003E7 

02200030 A 

pAn00*lD 
pB03FFFo A 

a80O03E7 

62200040 A 



LWj6 9 SAyt 

BALjSH4 QMB USES 

BEZ **1 WA!T 

LW*Rl D3 

LWj8 *IREQ8 

Lt#R3 »20 

AW, 8 03 

KJREQfIL Lw*04 k!REQ111+20*R3 

STW#0* QjRl 

A!iRl 1 

BTr#r3 kIrEOfIl 

AWM*D3 K!REOBF»KiREOUi«go*Rl 

LMj03 0CT 1# R6 

ANDjD3 X?FF 

LTiO* 

L!#»3 3 

KlRCN SLD*D3 «4 

SLS#D* .4 

BDRjR3 K1RCN 

AWM*D* K!RE0DD»KIRE01H»?0#R1 

C!*(H KOODOO 1 

BCR*4 KlRCNi 

C*>D* X*60000» 

BCR#4 KIRCN1 

AW, O4 KlRCMp 

STWj04 K!RE0DD»KlREQlH»20 i Rl 

RE S 

A!,D1 

BFZ KIRQUF 

STW^Dl K!ReQt2- k !REQ1H*?0*R1 

Lt D2 

BCS*l KIRQUF1 

LC! 3 

L M*02 KlREQSV 

STMiD2 KIREQT1»K!RE0111»20*R1 

B KIRQUEi 

CKFER65 RUSM 4#R1 



TNDEx 
03#RO'R2*R5 



SET DCB IN g 

MftVE IHAqE T8 BUFFER 
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KIrc^I 



QBUF SET 



NDO 



SET 8VTE 
REEL, NR 



vANO SA v Ef 



COUNiT M 



HOI 17*42? 

55» 
56* 

57* 
58* 

59* 
60* 
6i* 
62* 
63* 
64* 
65* 
66* 
67* 
68» 
69* 

70* 



J 


SEP 08# 


01* 


00*53 


01 


00*54 


01 


00455 


01 


00*56 


01 


00*5? 


01 


00*58 


01 


00*59 


Ql Gp45A 
01 00^58 


01 


00<f5C 


01 


90450 


01 


O045E 


01 


00^5F 


01 


00460 


8i 


00*61 


00462 


o* 


00463 


01 


00464 



f 7* 

oBlOOOOO 

^0203^00 
32F10000 
*2400004 
*2l00000 

r02ooooi 

*9C00*5F 

*84' 

r>l2s000i 

&93 00 45F 
3 542000g 

&0100000 
3II0OOOD 

68200*58 
022000*0 

oaIooooo 

*8000*2A 



(31 



[QOOO 



1A2 



1*1 



A!#Rg 8ATAPtf*X»3C 00 ? 

L!ii5 X»lOOO0« 

L!#R4 4 

LljRl BQRCPU 

Lc *Ri 

BCSj12 lAl 

CWM5 o#«l 

BaZ lAl 

CHjR2 *Rl,R<* 

BNE lAl 

STW,R4 2 # R1 

A!#Rl CFUSIZE 

CW,Pl ACNCFU+13 

BLE 1A3 

PULL 4#R1 

B c<ZEr»2 



N£W P8RMAT 
CFUPRIVBIT 
MA(DCTX) 



!TtS IN USE 
N»T PRIVATE 
N8 HIT 



HOI 



17J 
226$ 


42 i 


SEP 08# 






2270 


01 


00465 


2271 






2272 






2273 






2274 






2275 






2276 






2277 






2278 






227J 

2280 


01 


004*65 


2281 


01 


00466 


2282 


01 


00467 


2283 


01 


00468 


2284 


01 


00469 


2285 


01 


0046A 



7$ 



*2D00001 A 

3*1800040 A 
&8300469 

P2D00000 A 

35D00000 X 
A800006D 
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PaGE 
KlRADlST RES 

*♦#«♦###*#♦♦##»*»##*»♦##♦•*♦*♦#♦*#**#♦#♦**#***#****#*♦*##*•*♦♦♦»#*#**** 
*F# NAME* KlRADlST 

*f# 

♦F» pUR p 8SE| T6 pR»CKSs THE • pREr** 1 KEylN, 

*(?# 

*F* DESCRIPT18NI INITIALIZES THF CELL RADlST (0 MEANS tPREFER 

♦F # DPt, 1 MEANS tPREFER RAD«). 

♦ 

LI, 02 1 

CI#SR1 i ' 

B E **2 

LI#D2 

STW*D2 RADlST 

B KEYINR 



HOI 



17 J 42 
2286 

2287 

2288 
22«9 

22$o 
g2S»i 

2292 
2293 
2294 
2295 
2296 

1* 

2* 
3* 

4* 
5* 

6* 
7* 

8* 

10* 

11* 

12* 
13* 
14* 
15* 
16* 
17* 

u* 

19* 
20* 
21* 

22* 
23* 

24# 
25* 
^6* 



SEp 08# f 7R 
01 004AB 
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PAGE 

Skin equ • 
*####*####♦*##***♦•#*»#♦***#********##*####«♦*##*#*#**•###*#####***♦*** 

*F* NAME* SKIN 

*F* 

•p* pyppQSE: TO PROCESS THE »$YYiOpT?©N! F©Rm Of THE SymBIONT «EyI 

*F# 

*f# description! finds an appropriate symbiont based on the 

♦f# " specifieo devlce.tvpt <yy> and hgrqes into the skfyin 

*f# routine! 

*#####♦♦#*##«***##*#•*##»**#**#***»##•#♦#♦♦♦#**#♦**♦*****#***♦*#******* 

#0# name: skin 

*D* 

#D* ENTRY* SKEYIN 

< mm mm 
CALL? KEYIN pO« M ATJ Syy I NDO I *OpTlON 

m * • • 
INPUT* R2/R3 - FIRST FIELD OF KEYIN 

r 7 i a^r of kevjn parameter list 

8HINM, SNDOX^ StBITVP, M*stR m # R&LlM$, DC^U 



*D* 
♦0* 

*D» 
*0# 
*D# 
*D* 

*D* 
*D* 

*D* 

*D* 

*D* 
*D# 
*D# 
*D* 

*D* 

*D* 

*D# 
*D* 
*D# 
*D* 
#0# 
♦D* 
*D* 



OyTPU T ? R7 * ADR OF KEYlN PARAMETER L 1ST 
R2 . OCT INDEX OF SYMBIONT DEVICE 
Dl(Rlp) * OPTION CHARACTER 

ReqisteRsi all a r e vulnerable 

interface! devck# symcomj qklfld, nxklchr, ksgcd 

ENVIRONMENT! MASTeR/MaPPED 

DrS C RlpTION| Ip THE ABBREVIATED FORM Op THE KEY** 1 WAS yS£ 
(SYY), OH|NM IS SCANNED FOR A MATCH AGAINST YYj 

stbityp and snddx are used to verify that such a 
device*t*pe is a symbiont dey ice* and registers are 

LOADED FROM DCT16 TO SIMULATE THe SYYNDD F&RM OF T H£ 
KE V IN, F©R EITHER FfiRM ©F TH E <fJWs DpVCK VeR^IES 



HOI 



17142 

87* 

28* 
2g* 
30* 

31* 
32« 

2297 
2298 

2299 

2300 
2301 

2302 

23o3 
23o* 
2305 
2306 
2307 

2308 
23q9 

2310 
2311 

2312 
2313 
2314 
2315 
2316 
2317 
23l8 
23l9 
2320 
2321 
2322 
2323 
2324 
2325 
2326 
2327 



Sep oa* »7r 



00468 ,1|23E0004 A 

00*6c 91300003 A 

00*6D 69300*89 

00*6E ?180006B A 

00*6F a9300^*9 

6o*7q p^goooos A 

00*7l R28Q0002 A 

00*7? 92200000 N 

00*73 51840000 X 

00474 *83oo*77 

00*75 6*200*73 

00*76 68000066 

00*77 92*00000 A 

00*78 723QO00O * 

00479 71260000 * 
00*7 A l»8300*7D 
00*7a 6*300*79 
00*7C ^8000*83 

00*70 91300000 N 

O047E A8200483 

00*7F 90*00000 A 

00480 69300066 
00*81 72460000 X 
00*82 6$000*7B 

01 004*3 

00*83 90400000 A 

OO* 8 * a83qoq66 

00485 12280000 X 

00486 95200110 A 
fiO* 87 92800O6B A 



#D* 
*D* 
*D# 
*D# 
*D# 

* 

LW,R3 

CT*3 

BNE 
C!#8 

BNE 

SLS*2 

LM*8 

LI #2 

CMj8 

BP 

BDRj2 

B 

LT*4 

LBi3 

CB*2 

Bf 
S K IN2 B 0«i3 
B 

CI*3 
BLE 
A!i4 
BNEZ 
LB#* 
B 
SKIN3 EQU 
AT«4 
BFZ 
LDj2 
SLD#g 
L!#8 
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THE DEvlCE ADDRESS, REMOTE BATCH TERMINALS ARE Ex- 
ClUDIDj AND, JF THE OPTIBN IS ANYTHING ^TH^R THAN 

»f», symc&m js called t» process it, the f F f s^ti^ 

CAUSES A KERMGFC GH»ST FUNCTION C8DE T6 Be PASSED T6 
RBBAT VIA KSGCOf 
*••••*•#»*•#•*#*•*««*•*#«**«»*#•»•*#««#•##«•*#*«»«*•*•■»* 

KFl,R7 

3 

SKEVIN 

»#♦ 

SKEVIN 

8 

2 

TVRMNSZ 

8MtNM,2 

•♦3 

• •2 
KEYERR 


SNDDX 

STBiTvR#3 

• ♦3 
««2 

SKIN3 
MXSTRM 

SKIN3 


KEYERR 

6NDD*#3 

SKIN2 

i 



KEYERR 

DCT16*4 

16 

!# f 



HOI 17?42 S|P 08* >7* 135 

2328 01 $0*88 *80OO*8b B SKlNl 



HOI 



17* 

2329 

8330 
2331 
2332 

2333 
233* 
2335 
2336 
2337 
2338 

2339 
2340 
2341 
2342 
2343 
2344 
2345 
2346 
2347 

2348 
2349 
2350 
2351 
2352 
2353 
2354 

2355 
2356 
2357 
2358 
2359 

2360 
2361 
2362 

2363 
2364 
2365 



42 SEP 08# '7r 
01 004*9 
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01 00489 
01 O048A 



S22E0005 
323E0006 



01 004«B 

01 0048B ?5200108 

I O048C fcABgoQOO 

1 00^80 ^9800066 

OOOOOOol 
01 O048e 19200000 

01 0048F ^8900066 



01 00490 
01 00491 
01 004^2 

01 00**3 
01 00* 9 4 

01 00*95 
01 00496 

01 
01 00497 
Ol OO* 98 

01 
01 00499 

01 00*9A 



09200000 N 
AAFoo*99 

*8qqq4B7 

SfCoOOO 8 A 
0*200000 K 

6^BooOOO * 
A800006D 

0Q497 

68200000 N 
A800OO66 
004^9 

6AB00039 
ft98 o497 



SKpylN 



PAGE 

EQU 



* 



####♦###*##**#♦###♦**##*##*♦###♦«**#♦#*#######♦###*##**##♦♦*«•♦»#***♦*** 



*F# 
*F# 
*F* 
*F« 
*F# 
•F# 
*F# 

•F» 



NaM£8 



SKEVIN 



PtjRpeSEl T6 pRBc^^S THE iSvYNDD*epT!8Nf freR M 8p T H E Syv|8l8NT 
KEVIN. 

OfSCRIPTIBNI VERIFIES DeVtCit aDDR^SS (YYnDD) and eit h e r 

prqcesses the ^"/e/J e^neNs within s*e y in ©r calls 

THE Sy^ C °H ReuTlNE IN THE kEySUb MGDULE T6 pR&CESS 
»p# ALL GTHE K St 

* 



Lw R 2 KPlB' R 7 

LW*R3 *PLB*i # R7 

SKlNl EQU * 

SLD#Rg 8 

BAL,Sf*4 DEVCK 

BCSmB keyerr 

D© RBC80F 

CLM.R2 RBLiH s 

BCRj9 KEYERR 

Fin 

pUSM R2 

BAl*l5 SKFCK 

B SKFRM 

LW^Di SR* 

PULL R2 

BAL#SR4 5YMC&M 

B KEYINR 

SKFYIN5 EQU t 

PULL Rg 

B KEYERR 

SKPCK EQU • 

BAL*ll NXKICMR 

BC$«8 SKEYIN? 



CHECK IF LEGAL DEVICE 

I 

N* RB DEVICES BN S ym Bj8NT KfrYjNs 



HOI 



17 1 4 


? 


2366 


"ox 


2367 


01 


2368 


81 


2369 


2370 


01 


2371 


01 


2372 




2373 


01 


2374 


01 


2375 


ol 


2376 


01 


2377 
2378 


81 


2379 


01 


2380 


01 


2381 


01 


2382 


01 


2383 


01 


2384 


01 


2385 


01 


2386 


01 


2387 


01 


2388 


01 


2389 


01 


239o 


01 


23 9 1 


01 


2392 


01 


2393 


81 


2394 


23«5 




2396 


01 


2397 


01 


2398 


01 


2399 


01 


2*00 
2*0i 
2402 


s 1 

01 



SEP 08' 
00*9b 

no*9c 

0049^ 
00*9f 

6o*ao 

01 
004Ai 
004A? 
00*A3 
00* A 4 

0Q* A 5 
OO4A6 
00*A7 
00*A8 
00*A9 
00 4AA 
5 4A8 
00*AC 

5o*ao 

00*AE 
004AF 
00*BO 

n0*Bl 

00*®2 

O0* 8 3 

00* B * 

QQ 4 ? 5 
OO4B6 

01 
00*B7 
00*B8 
00 4B9 
00 4»A 

qq4BB 
D04BC 
O0*BD 



»7r 

?2300003 A 
7186Q4DF 

F ' 8 30000 r A 
6 43004 9C 

P0FOO001 A 

F800000F A 

004A1 

AAB00039 

^,88004A6 

P29Q0000 A 

^59Eo005 A 

£!§888?o J 

*»93oo*97 
6AB00050 
698oo*97 

?2 9 00005 A 
30 9 0000 7 A 

321*000* A 
SQiFFFFF A 

^8200*97 

?1100004 A 
*9200*97 

F2420009 A 

2%$5 * 

?2*000*0 A 
F5 iSQQQ 9 A 

psOoooof a 

004R7 

?2c000FF a 
92DFFFFF A 
P2EFFFFF A 
A 8 6 4BA 

68goo* c 9 
*80004CC 
*ABOO*EO 



SKFSET 



SKFRM 

SKFRMj 
SKrJ 



LI#3 
CB#8 

BF 

BDR^3 
A I j 1 5 

B 

EGU 

BALjH 

BCR18 

LIj9 

STWj9 

B 

Cljg 

BnE 

BALjU 
BCS#8 
LI#9 

Aw*9 

LWm 
Alii 
BlEZ 

CIjI 

BG 

LB#4 

CI*4 

BNE 

LI*4 

STB*4 

B 

ECU 
l !j12 

L!#13 
L! m4 
B 

B 
B 
BA^fll 
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FKICJ3 

• 15 
§•2 
1 
*15 

* 

NXKICHR 

•♦4 



KPLB*7 

• 15 

SKEy! n 2 

QKlFlD 

SKEYIN2 

KPm 
7 

KFL,7 

s£EY!N2 

4 

SKEytNS 
«9#1 
t t 1 t 

SKEYlNg 

! f 

*9# 1 

*15 

X»FF* 

• 1 

"1 
i'3 

SKFF 
8KF& 



Hqi 



17U 
3*03 


? 
"01 


2*0* 


01 


2*05 


01 


2*06 


01 


2*0? 


01 


2*Q8 
2409 


§1 


2*10 


01 


2*11 


01 


2412 


01 


2*13 


01 


2*1* 




2*t5 


01 


2*16 


01 


2*1? 


01 


2*18 




2*19 


01 


2*20 


01 


2*21 


01 


2*22 




2*23 


01 


2*2* 


01 


2*25 


01 


2*26 


01 


2*27 


01 


2*2? 




2*30 


01 


2*31 


01 


2*32 


01 


2*33 


01 


2*3* 


01 


2*35 


01 


2*37 


oi 


2*38 


01 


2*39 





S|P 08' 
00*BE 

00*BF 
00*Co 
00*C1 
00*C2 
00*^3 

oo*c<* 

00*C5 
6o*C6 
004C7 
00*C« 
01 

no* c 9 
no* CA 
no* CB 
01 
oo*Ce 

60 irr 

no* CE 

01 
O0*CF 

00* D 
00*D1 
00*D2 
00*D3 
01 

00*D* 
00*^5 

no*D6 
00*D7 
00*D8 
00*D9 

00* Da 
00* D B 



f 7R 








*AFOO*Al 






BALjl b 


320E0Q05 


A 




LW'O 


A9300*C3 






BnEZ 


P2C00000 


A 




L!#12 


A8000*CF 






B 


* A ?00000 


X 




BaLj1& 


*98°0*97 






BCS j 8 


?1100021 


A 




Cl#i 


#.9200*97 






BG 


.12C00001 


A 




LW#12 


*8000*CF 






B 


0Q*r9 




SKFF 


EOU 


6 A F00* A 1 






BAL*i5 


32wEo005 


A 




LW#i3 


*8ooo* cr 






B 


oo*rC 




SKF8 


EOU 


*AB o*Eo 






BALiU 


^AFgo^Ai 
32Et-0005 






BALj i5 


A 




LW#j4 


00*^ 




SKF! 


EOU 


?180006B 


A 




CI#8 


*93 0* D * 






BNE 


AAF00*99 






BALjlS 


^8000*BA 






B 


*8000*97 






B 


00*^* 




SKFRMg 


Enu 


ofgOOOOO 


N 




PULL 


* A »00000 


X 




BAL#ll 


^8000*D8 






B 


1*8000066 






B 


J»5C00008 


A 




SLSil2 


*qCooooo 


N 




AI#12 


?5300010 


A 




SLSj3 


*9Cq0003 


A 




OR* 12 






* 


B 



gKFsiT 
KPlB*7 
• ♦3 



SKFi 

DEC5NV 

8KEYIN2 

33 

SKEYIN2 

1 

SKFI 

* 

SKFSET 

XPLB#7 

SKFj 

t 

BCPCK 

SKFSET 

KPUB*7 

* 

V 

SKFRMj? 

SKFCK " 
SKFRM1 
SKEYIN2 

* 

R2 
SYMTABCK 

$♦2 

KEYErr 

8 

KFRMGFC 

16 

3 

KSQCQ 
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Fall thru T8 ksgcq 



H 



01 



17142 
1^0 
2*41 
2442 

2444 
2445 
2446 
2447 

244 
244 

2450 
2451 
24$2 

2453 

2454 

2455 

1 



SEP 08# »7R 
01 004HC 



01 
01 
01 



004DC 

OO^DD 
004DE 



6*400000 
*8000068 
A800006D 
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page: 

KSGCQ FQU i 

*F# name: KSQCQ 

*F# 

*F* puRpSSE? T5 pRBVl^r A KEylN TNTERpAeE T© THE Sqco R»UTfNE IN 

*f* c»»Pi 

•F# 

*F# DESCRIPTION! BAt3 JQ SGCQ WfyH THE NORMAL RETURN GSlNQ T6 

*F# K E YiNR <«E V IN EX|t».ANO THE ERROR *ETU*M 

#F# qOINq T8 KEyERRl < 'LATER* WESSAqE AND ExIT), 

# 

BAU4 SQCQ 

B KEYErrI 

B KEYINR 

SPACE 5 



2456 

2457 

2458 
2*59 
2*60 
2461 
2462 

g463 
2464 



01 60*DF 


4OC6D6D1 A 


FKTC 


TEXT 


f F8J, 


01 


004F0 


OCPCK 


EOU 


S 


01 O04E0 


P2100000 N 




U'Rl 


ecPte 


01 OO^El 


*83oo*97 




BF 2 


SKEYIN2 


01 00*^2 


R2100000 * 




LW#Rl 


♦TSTACK 


01 004E3 


72120000 X 




LR*R1 


DCT4*R1 


01 00* E * 


P1100000 N 




CTjRI 


8CPTYP 


01 no* £ 3 


a93qo* 9 7 




BNE 


SKEYlNg 


01 00* E 6 


F«000Q0 B A 




B 


•11 



HOI 



$466 
2467 

2*68 

2*69 

2470 
5471 

2472 

24?3 
2474 

2475 
1* 
2 # 
3* 

4* 

5* 
6# 

7# 

8* 

10* 

11* 

12# 

13* 

2476 
2477 

2478 

2479 
2480 
2481 
2482 

2483 

2484 
g485 
2486 
2487 
2488 
2489 



SEP 08, »7R 

01 004F7 



01 

01 
01 
01 

01 
01 
01 

01 
01 
01 

°} 
01 

01 



0<HE7 

O04E8 

O04E9 
004EA 

004EB 

004tC 

6o* E o 

004|£ 

6o 4 £o 

oo* r i 
oo4rs 

004F3 



324*00000 N 

^8300066 
j»2400000 
72100000 

72320000 
91300001 
*83 o4FB 
64loo4£B 
?14 0001 
* 9 3000 66 
122*0000 
P5200110 

P21000E2 



1*0 
PAGE 
*lST$Y EQU * 

••#*###♦####»•#*##*##»###*•#•*#*♦##»•######•#*#»#•••#•*###**♦*##*•*#*** 
*F# NAME! KISTSV 
*F# 
#F# pURp9SE! JB pRSCESS THE »SSt (START SyMBl»NT) <E Y IN. 

*F# 

*F# D|rSCRlPTI8N! iF ONLY 1 L6CAll INPUT SYMBI8NT EXISTS, AN 

*F# »S*YNDD#! f *E Y IN IS SIMULATED T8 GET IT G»IM3» 

♦#♦######•##♦#**#•#♦•##♦#**♦###*•#*##♦•######••♦*#*#*»*###«*####**♦**** 

• D# 
*0* 
*0# 
*D* 
*D# 

#D* 
*D# 

*D# 
*D* 
»D# 

*D* 



NAMgj KlSTSy 
CALL; KEVIN F&«MATj SS 
RrGlSTERSl ALL A*E VULNERABLE 
ENVIRONMENT! MASTER/MAppED 

OrSCRlPTieNI SNDUX IS SCANNED AND iF BNLY 1 INPUT SYMBI&N T 

IS PRESENT* A f SY*NDD,l» KgYjN is SI^ULaTE^ F S R T HAT 

SYMBl»NT (»SyYNDO#I» IS PLACED IN KEY*N8UF> AND KFYlN 
IS RE-ENTERED AT THE T8Pt 

* 



LI#R4 
BlZ 

L!#R# 
LB# Rl 

<ISTSY0 LB#R3 
CI#R3 
BE 

KISTSY! BDR,RJ 
CI#R4 
BNE 
LD#Rg> 
SLD#R 2 
LIjRI 



SNDDX 

KEYERR 



SNDDX 

8YM X jRl 

1 
KISTSYJ 

KISTSYq 

KEYERR 

DCT 1 6#R5 

16 

?S» 



N§N»SYSMBI9NT SYSTEM 
N(J* 8F SYMBI6NT DEVICES 



v*s 

N9*L»8P 

WAS THERE ©NLY t INP, SYMR. 
Nft-ERReR 

I 



HOI I7I 

2490 
249i 
2492 

2*93 
g494 

2*95 
2496 
2497 
2498 
2499 
2500 
2501 

2502 
25Q3 
2504 
2505 



42 SEP Og# 
01 004F4 
01 00*^5 
01 00* r 6 

01 QQ»l? 
01 00*F8 

01 00* p 9 
01 004FA 



t 7U 

75100002 A 

?2l00001 A 

P24Q6BC9 A 

R5420003 A 

02200020 A 

P&200000 x 
*8000027 



Hi 



01 oo^fb 72220000 X 

OOOOOOOl 
01 004FC 1*200000 X 
01 60*FD *89oo*EE 



01 004FE 

01 oo4rr 

01 00500 



32500002 a 
P0400001 A 
*8000*EE 



STBiRl 

LI#»i 

l!#R4 

STHjR4 

LCI 

STM*R2 

B 

KjstSY? LR # R2 

D» 

CLMjR8 

BCRj9 

FIN 

LWjS 

AI#R4 

B 



R2 
1 

!' I ! 

R3# R 1 
2 

KEYINRUF 

KEV1N20 

SNDDXjRl 
RBC9DE 

RBtjMs 
KISTSVl 

1 

KISTSY1 



MAKE NAME SYMBlfiNT 



STQRE AS SNAMEj! 



KpYIN WILl D9 THE REST 

6pT DCTX 
I 

IF TMTS TS AN RB DeVjC£ S<I p g v C* I 
AND DdNiT C9UNT AS A CARD READER 

I 
I 

BUMP C&UNT Of INPUT DfTX'S 



HOI 



17142 SEP 08' '7« 



1* 
2* 

3* 
4* 
5* 

6 # 

7* 
8* 
9* 

10* 
11* 
12* 

13* 
1<M 

I5* 
16* 
17* 
lg# 
lg* 
20* 
21* 
22* 
23* 
2<t* 

25* 
26» 
27* 

38* 

29* 
30* 
31* 
32* 
33* 
34* 

36* 
37* 



01 OO50I 



01 00501 
01 00502 
01 00 5 03 

01 00504 

01 00505 
01 00^06 
01 60307 
Ol 00508 
01 00509 
Ol 0050A 

01 0050b 
Ol OO^OC 



AA4Q0526 
32400003 A 
PQ^fFFFl A 
S260000E: A 
POE00002 A 
F940000E A 
?>0300003 A 
3530007E A 
P0302700 A 
P5300010 A 
S53C0000 A 
32300000 X 



142 
PAGE 

ersend equ • 

•«###*#♦♦♦#♦#♦**#####*##♦•*##♦*####♦*###♦*♦«#♦»♦#**#*♦*#*****###******* 

*F# NAME J E R SEND 

*F* 

*F« PURPOSES TB PROCESS THE 'ERSpND* K^VIN, 

*F# 

*F# DESCRIPTION! CAUSgS SpEClFlED MESSAQE TO $E pUT INTO THE 

*F* ERRORLOG AS A TVPEp?7 ENTRYt 

*###*#♦#♦*♦»#♦***#•#**#*#***##*«*♦#♦#♦###*#####♦######*##♦#♦*###***#*** 

*D* 

*0« 

*0* 

*D* 

*D* INTERFACE! KRRMVO, ERRLOG, RMB 

*D* 
*D* 

*D* 
*D# 



NAME? 
CALL? 



ERSENo 

KEYIN FORMATj ERSEND TEXT 



ENVIORNMENTl MAST£R/MAPPE0 



d e scription» ca^s krbmvo to acquire an mpool buffer ^0 move 
*d* the message te*t prom keyinBuf to the buffer* ersend 

*0* THEN r ORMATS TH£ SUFFER AS A TYPE«27 ERRBR fOfi ENTRy 

*D# AND CALLS ERRLOG, RMB IS CALLED TO RELEASE THE 

*D* MPOOL BUFFER* 

*###♦#*#•###***•**♦•#♦#♦#*#•**##***##♦♦####*##*•♦##*«#*♦♦#*###*#***#*** 

* 



BAL'4 

LW*4 

AIj4 

LW, 6 

AI#14 

STBj4 

Af#3 

Sl.S,3 

A!#3 

SLS,3 

STw*3 
LW#3 



krBmvo 

3 
• 9 

2 

#1* 
3 
.2 

X »2700» 
16 

0*6 
TIME 



GFT AND MOVE M$G 
TOTAL * OF BYTES 
DFCREMENT * OF BYTES 
MftN BUF aDDRS 
pOINT T» mSg L 0c 

round 

tototal number of words 

CREATE ERRBR MSG HEAqER 
SHIFT INTO P0SITI8N 
AND pUT INTO pLACE 
TfME 



HOI 



1714 


2 H? 0»# 


»7R 








38« 


01 OOSOD 


353C0001 A 


STW,3 


1#6 


I NTS BUFFER 


39* 


oi 6o5o£ 


**500000 * 


BaL# 5 


ERRL8G 


RFC5RD MS6 INT8 LOG 


<*o* 


Ol OOSOF 


»OeFFFF£ a 


AI # 14*. 


.2 


RftINT T» BEGINNING 8F MPqql 


*1* 


01 00510 


?2B0006d 


LIjU 


KEYINR 


C»MPL^TI»N EXIT P8INT 


42# 


Ol ooSH 


A8000000 X 


B 


RMB 


PFLEASE mbn BUF. 



1*3 



N01 



17U2 
2506 
25q7 
2508 
2509 
2510 
2511 
2512 
2513 
2514 
2515 

25U 
2517 

2518 
25l§ 
2520 
2521 

2522 
2523 
2524 
2525 
2526 
2527 

2528 
1» 
2* 
3* 
4* 
5* 
6* 
7* 
8* 
9« 

10* 
11* 

12* 
2529 

2530 



SEP 08# »7r 

OOOOOOftt 
01 0051 2 



01 00512 

01 00513 

01 005H 

01 00515 

01 00516 

01 OO5I7 

01 00518 



oi 605I9 

01 005U 



?2C0O000 N 
A8300066 
*2C00Q00 N 
^1800015 A 
*93oo525 
?2E00000 A 

^8q00^DC 



?2C00000 N 
*8000520 



PAGE 
OB 



1#4 



RBC8DF 



t 

* * 

kRbb c st EqU $ ».„...*..•..*•*..*.,•,,..-.— -..----- 

##»«#*♦#*♦#######*#♦#♦*##•*♦#»####♦*#*#♦*##♦«***♦*#•#♦♦###*##♦*♦**##*** 

*P* NAME J KRBBCST 

*F# 

*F* pURpeSEt TO pR6CESS THE IRBB&CST* KEYlNt 

*p# 

*F# DFSCRIPTI8N! CAUSgS THE SPECIFIED MESSAGE T8 BE PASSED T8 
*F# RBBAT VJA A SYMBlftNr GH8ST C8MMUN1CATIBN BUFFER; 

*F* THIS MESSAGE W^LL TMEN BE BROADCAST TO ALL REmOU 

*F» TERMINAL BPERATSRSt 

*#«##*♦♦#♦#♦#*****»***#•***#*«♦##****####*###*****♦♦*****#*#♦###***#*** 
* 

8FFBIT put message in message FiCg heading 

KEYeRR ALL RBTS, ERROR IP NOT RBSYSTE^t 

bcstgfc message rimo R12 get ghost functi 

XU5t Fur RBBDCST 

krbmv 

•„„.,..•,•.,„.**«-*...•.;...,. 

KSGCQ 



Ll,12 
BEZ 

UIj12 

Cf#8 

BNE 

L!#H 

B 



01 0051B 



*##•#♦#♦##*•«♦***#♦**♦#♦♦»*»###♦##*»###♦♦•*♦«*#♦»###♦###*#*#*###**#♦*** 
*F# NAMf! KRBCOM 

*F* 

*f» purpose; to pRecESs the «Rbc»m» KEy! n 

*F# D r SCRlPTIBN| PASSgS RBBAT A KCOMGFC GHOST FUNCTION CODE FOR 
*P# pROCESSO* TO PROCESSOR COMMUNICATION. 

•####«#♦#•###*****♦»*#####*#*#*#**##**»##*###*****##***#*#**♦♦#♦***♦*** 
# 

Llil2 KCOMGFC 

B KRBSc 

KRBSEND EqU * SEND A MESSAGE T8 THE SPECIFIED RBT 

#♦♦«»#♦#«♦###♦*•♦#####•♦##*»*♦*#*♦#*##♦♦*#♦♦»**♦*******###***»♦****♦*** 



MOt 17142 SEp Q$$ 17*, 1^5 

2531 *F# NAMEJ kRBSEND 

2532 #pr * 

2533 »F* pyRpeSE; TO pROcE s S THE »Rbsend» kfyIn. 

2534 *F* 

2535 *F* OrSCRlPTiaNi CAUSES THE SPECIFIED MESSAGE TO 8E PASSED TO 

2536 * F * RB»AT VIA A SYMBIBNt GHOST , COMMUNICATION BUFFgR; 
253; *F# THIS MgSSA6 E WILL TH^N Br SENT AS THe NpXT PRl^T FILE 

2538 «F* TO THE SPEclF^D DEvIc^ &* W»«K STATION, 

2539 ########♦♦######♦•##*♦##########«•*##♦###♦#*##♦#####•######*#♦##**##*** 
1» *D* NAMEJ KRBSENO 

2» »D* 

3* *D# ENTRY? KRBBCSTj KRBC0M 

<t« *D* «• • * 

5 * «D# CaLLI <EYIN F6«MATS> IRBBDCSTl 

6* *D* IrBSEnD I TEXT 

7# *D# IRBCBM I 

g* *D* ** •* 

9* #D# INPUT* R7 « ADR OF KE^IN PARAMETER LIST 

10* *D» 

11* *d» rfgisterSi all a R£ vulnerable 

12* *D# 

13* «D» INTFRFACEl KRBMVQ 

14* »D* 

15* *D# ENVIR»N M ENT| M ASTER/MAppEO 

16* *0* 

17# #D* DFSf!RlPTI»Ni VERIFIES THAT REMOTE PROCESSING IS INCLUDED IN 

l g » *D* THE SYSTEM (IF RBBDCST) SR THAT THE SPECIFIED STATION 

19* *0* IS aCtI v E <I r RBSpNO OR RBCOM) AND CaLLs KRRMvO yft 

20* *D* M&VE THE MESSAGE FRO M KEvINBuF TO AN MPB&l BL^C* wHlc^ 

2U *D # WILL THEN BE PASSED TO RBBAT WITH AN APPROPRIATE GH9S1 

g2 * #0* FUNCTION CODE (BCSTGFC IF RBBDCSTi SN06FC IF RBSenDj 

23* *D* KCOMGFC IF RBCOM) V!A THE KSGCQ ROUTINE. 

g^# #♦♦♦♦#*♦###♦*♦****#**♦##***#******#**#♦#*##«******#******♦**#**********< 

* 



254 
254 

2545 01 0051D PlDOOOQS A C*'*3 ,Nf 



2541 01 005lB ,^2DE°0°6 A LWjlS KPLB+1,7 

2542 01 0051C 7 s D0000D A LB, 13 13 



M 



01 



254 

2547 

3548 

2549 

2550 

2551 

2552 
2553 

2554 

2555 
1 



7*42 
6 



01 
01 

01 
01 

01 
01 
01 
01 



8* 



S|P p 
6o51e 

oosir 

01 

00520 
00521 

00522 
00523 
00524 

00525 



'7* 

* 9 300066 BNE 

*2C00000 N L!il2 

Q05?Q KRRSC EGU 

*AD o544 BAl<i3 

73040000 X MtB*0 

A8300066 Brz 

?520000« A SUSj2 

49C00002 A »R*12 

?240053A KRBMV L!*ft 

* B 

FIN 



KgYgRR 

SNOqFC 

• 

KRBDCT 

RBBII0#2 

KEYERR 

8 

2 

KRBMV4 

KRBMVO 



DCTX IS BBTAlNlpO 
N8T L8GGED »N 9R 
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BY KRBOCT. IF *BT 
IF N» MESSAGE £3*6 



FftR RBSEND 

Fall tmru Te krbmvo 



SEP OS' »7« 

01 005p6 



HOI 17142 
2556 
3557 

2558 
2559 
2560 

256* 
1* 

2563 

2564 
2565 

2566 

1* 

2* 
3* 

4« 

5* 
6* 
7# 

8* 
9 # 

10» 
11* 

12* 

13* 

H* 
I5* 

16* 

17* 

18* 
19* 

20* 
21* 

22* 
23* 

2567 

2568 ol 00526 

2569 ol 00527 



1*7 

PA3F 

KRBMVq eou * 
»•♦#####•####**♦#♦♦#####«•*#**##**#*#♦»♦###*###*#♦###**♦♦♦#*#♦##♦*♦♦«♦♦ 

*F» NAME? KRBMVO 

*F* 

*F# PURP8SE? SUBR»UtI n E T* M A NiPULATE A *EYIN MeSSaGe SUPPLIED VJA 

*F* RBBCST>'R B SEN0/RBC8M/ER8Elw0 *EYlNS f 

*F* 

*F# DfSCRlpTieNl ACQUIRES AN MpSBL BUFFER AND M6vES THE CLIENT 

*F# MESSAGE IN KEYINBUF INTB THE BUFFER. 

#»#»*«##♦♦#♦*»**#♦#♦#*♦♦##***#♦♦#♦#♦##»♦#»♦##**#*#######♦####♦##«#*#*** 

*D# NAME J KRBMVO 

*D* 

*D* CALL* BAL#«* 

*D» 

input* R7 • aDR ©f ke^in Parameter list 

KEYINBUF 



(SEE OEScRIpTI^N BEl,8 w ) 



eUTPUTj R14 9 MP&BL BUFFER ADDRESS 

R3 ■ NE*T AVAlUABLE «BYte> RQSITIBN IN MP&BL BUFFER 

REGISTERS! RO, R*# R3 & Rll ARE VUL N ER A 8lE 

INTERFACE 1 GMB, «MB # KSGCQ 

ENVlReNMENTl MASTER/MAPPED 

DfSCRlPTISNj ACQUIRES AN MPBBL BUFFER VIA GMB AND M8V£$ UP T8 
? 2 CHARACTERS (JGNBRING LeaDINQ BLANKS) INtB T M E 

SuffeRi i^ CaIUed bv krbIcst br krbsend. Return is 

MADE IN SyrH A wAy AS TB C ALt S9 C Qi RELEASE TME BtjFFEl 
VIA RMB AND E*lTj tF CALLED BY fRSEND, RETURN IS T9 
BAL*l« 



6AB00000 X 
6 8 3000 68 



BALill 

BEZ 



GMB 
KEYERRi 



SAY LATER IF N&NE 



HOI 17! 
2570 
2571 
2572 
2573 
2574 
2575 

2^76 
2577 

2578 
2579 
2580 
2581 
2582 
2583 
2584 
2585 

2586 
2587 
2588 
2589 
259° 
259i 
2592 
2593 
2594 
2595 
2596 
2597 
2598 



42 SEP 08# 

01 00528 

01 00529 

01 OO52A 

01 0052B 

01 O052C 

01 00520 

01 O052g 

01 0052f 

01 6o53o 

01 0053i 

Ol 00532 

01 00533 

01 00534 

01 00535 

01 00536 

01 00537 

01 00538 
Ol 

Ol 00539 

01 0053A 

01 0053B 

01 0053C 

01 00530 

Ol 0053E 

01 0053? 

01 00§^0 

01 00541 

01 00542 

01 00543 



1 7«| 

*2300001 A LI#3 

P14oq53A C!*4 

^8300s2c BE 

P2300009 A L li3 

321E0001 A LW#l 
72020000 X KRBMVi LB# 

M000015 A CI#0 

^8300539 BE 

M300Q01 A C!#3 

A9300534 BNE 

?*000040 A CI#0 

A8300536 BE 

P506000E A STB«0 

?0300001 A AI#3 

90100001 A A!#l 

^1100048 A C!#l 

A820052D Bl.E 
005*9 KRBMV2 EQU 

^8080000 A b 
?2B00066 <RBMV4 LTjU 

p03FFFFF A AT#3 

* 8 200000 * BLE * 

?1300050 A CTi3 

* 9 200000 x sr ' 

F530000E A STB, 3 

S?2B000 68 LI#U 

*A400000 X BAL*4 

*8000000 X B 

A800006D B 



KRSMV4 

• ♦2 
9 

KCCPj7 
KEYINBUF#i 

X»15« 

K&BMV2 
1 

**3 
t t 

• ^3 

• 14,3 

1 
1 
72 

KRBMVi 

i 

0#4 

KEYERR 

• 1 
RMB 

80 
RMB 

•14 

KEYERRl 

SQCQ 

RMB 
KEYINR 



ASSUME RBSEND FIRST 

TRUEttt 

YFP 

N8PK* MUS T BE ErsEnd 
CURRENT CHARACTER P8STTI8N 
GET NEXT CHARt 
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Exit ep fA ll t w ru 



woi 



17142 s 


5 EP 08# 


17* 










1* 












P A G r 




Z* 




00000061 






D9 


RBC8DF 


2630 




01 


00544 




krbdct 


EQU 


* 


2631 


01 


6o5*4 


AABooOSo 






BAL*ll 


GKIFLO 


2632 


01 


005^5 


*98oo066 






BCSj8 


keyerr 


2633 


01 


00546 


322§;0005 


A 




LW # 2 


KPLB # 7 


2634 


01 


00547 


323Eo006 


A 




Lw*3 


KptB*H 7 


2635 


01 


qq548 


72E00002 


A 




LB#14 


2 


2636 


01 


00549 


PIEOOO5O 


A 




C!jl4 


'&* 


2637 


01 


O054A 


*93oo55l 






BNE 


krBw^n 


2638 


01 


0054B 


?5200l08 


A 




5LD*2 


a 


2639 




01 


0054C 




KRBDCK 


EQU 


• 


2640 


01 


0054C 


aABqoOOO 


X 




BaLjH 


DEVCK 


2641 


01 


OO54D 


69800066 






BCS*8 


KEVgRR 


2^42 


01 


005* E 


1 9 200000 


X 


KRBOCTi 


CLM*2 


RBL!MS 


2643 


01 


0054^ 


69900066 






BCS*9 


KEYERR 


2644 


01 


0055q 


nA ffoooooO 


A 




B 


♦*13 


2645 




Ol 


oo 5s i 




KRBWSN 


EQU 


$ 


2646 


01 


00351 


A*B0Q560 






BA^ll 


KrBSPn 


2647 


01 


00552 


^8000066 






B 


KEYERR 


2648 


01 


00 55 3 


1 1280000 


X 




CDi2 


RBDfWSN#4 


2649 


01 


00554 


69300566 






BNE 


KRBSPN1 


265o 


01 


00 555 


7|g80Q00 
68300566 


X 




MTB* 


RBBUD4R4 


2651 


01 


00556 






BEZ 


KRBSPN1 


2652 


01 


00557 


32200QO** 


A 




LW*2 


4 


2653 


01 


fJo55& 


r8oooooD 


A 




B 


♦13 


2654 










« 






2655 
2656 


01 


Ol 
00559 


00 5s9 

70280000 


X 


KRBDNCK 


ecu 

LC 


DC T 3*4 


2657 


01 


0055A 


r920000D 


A 




BCSj2 


#13 


2658 


01 


6055B 


7028Q000 


X 




LC 


DCT24*4 


2659 


81 


0055C 


P94000QD 
^OdOOOOI 


A 




BC.Sj4 


♦13 


266° 


00550 


A 




A!#13 


1 


2661 


01 


0055E 


47080000 


X 




STS^o 


RBIFLAGj4 


2662 


01 


0055F 


p80OO00D 


A 




B 


#13 


2663 










* 






2664 




01 


005*0 




KRBSPN 


ECU 


* 
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OFT 0C TX F°R W sNl 9R &RBNf50» 

t 

IF N0 ♦&» IS PRESENT SEARCH RBDjWSN 

WgM* IF NOT ^8UND £RR6R« \* % V \ 
G» T8 DEvCk T9 qET OCTt ?F NOT REM 
Tr EVERYTHING A-OK EXIT WITH DCTX I 



CYCLE THR9USH ALL RB OCT JNOEXS(SIC 



HOI 



17:4 


2 J 


SEP OS* 


2665 


01 


0036o 


2666 


01 


00561 


2667 


oi 


00562 


2668 


01 


00563 


2669 


01 


00564 


267o 


01 


00^65 


2671 


01 


00566 



f 7«5 






?0 B 00001 A 


AlMl 


1 


$2400001 N 


LW,4 


RBlllis^l 


aUooooo x 


KRBSPN? CW,4 


R8LIMS 


F810000B A 


bge 


• 11 


pQBFFFFF A 


ATill 


«1 


F^OOOOO 8 A 


B 


♦11 


A*400562 


KRBSPNl BDRj4 


KRBSPN8 



ENTRY IS TQ KRBSPN ANo 

Tft KRB$PNl • 

BaLj 11 krbspn 
B A LL CHECKED 
IS THIS THE 8NE 
BNE KRBSPNl 
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M01 17U2 SEP Og, 175 151 

l* page 

267* 01 005*7 KRBX EOU * DISC& NNI eC T ALL RBTS AND PREVENT NEw 

1# ###*#♦####♦♦♦#*•♦»♦*♦##♦#♦*#*♦##♦###### ##♦#####♦###♦♦###»*»##*## *##♦*** 

2# *F# NAME? KRB X 

3* *F# 

4* *F# PURPOSE! t» PROCESS THE f RBX« kEYfN 

5* *F* 

6* *p# description? disconnects and disallo w s connection 9 f &ne or 

7* *f# aii remote processing terminals, 

g« »####*#***♦♦###*###♦*#♦♦#*•###**♦♦*##•###«♦»*♦*•#########♦*♦#♦••***#»** 

9* *D* NAME* KRBX 

10* # D* 

11* *D* ENTRY? KRBdISc KRBS 

jg# #D# *•• •• ** *• 

13* *D* CALL; KEYIN FORMATS: IRBx j JSRBNDDi 

H* *D« IRBDISCI IWSN I 

15* *D* 'RBS I •• •• 

16* *D# •- ** 

17* *D# INPUT' R7 « ADR OF KEVIN PARAMETER IIST 

18* »D* RBliMs# RBDJWsN, RBBtfD, RBIFl a 3 

19* *D# 

20* # D* OUTPUT? RBjFLAG 

81* *D* 

22* *D# ReGISTEPSI ALL A«E VULNERABLE 

23* *D* 

24* *D# iNTERFAcEl GKIFLD* DEVCK 

25* *D* 

26* *D* ENVIRONMENT! MASTER/MAPPED 

27* *D* 

2 g # *D* DpSCRlPTIONI 3 HANDlgRS AND A Set OF COMMON SUBROUTINES ALLOW 

2§# *D* TmC OpER a TOr TO CONNER (RBSJ Or DISCONNECT (rBX/ 

30* *D# RBDtSC) «E M OTE PROCESSING TERMINALS OR WORK STATIONS 

31 # *D# BY VALIDATING THE R&NDD/WSN INPUT PARAMETER AND 

32* *D# SETTING APPROPRIATE B ITS IN RBIFLaG FOR RBBat, 

33# *##♦*♦##*#♦•«♦##****♦##*#**#*******♦###♦#####*#####*■#*##♦#*«#*##******* 

34* * 

2675 01 00567 *23Q0000 N LTj3 OpfBlT 



HOI 17U-2 SEP 08# 

2676 01 00568 

2677 ol 00569 

2678 01 0056A 

2679 01 0056B 

2680 01 6o56C 
2^81 ol 00560 
2$8 2 01 00561: 

2683 01 

2684 ol no56r 

2685 ol O057o 

2686 01 G05?l 

2687 ol 00572 

2688 ol 00573 

2689 Ol 00574 



7* 
^8300066 
M800015 
m830056l r 
*AD00544 
P3300000 
22500000 
A8000579 
005AF 

92500000 
*ABoo56o 
f.8oo006D 
6 A 10057C 

A 8 000566 
*8Q00566 







B?Z 


A 




CURS 

Bf 

BALj13 


N 




L T § R3 


N 




L!jR5 
B 




KRBXl 


EQU 


N 




L!fR5 

BALMl 

B 

BAL* i 

B 

B 



KEYERR 

Xtl5» 

KRBXl 

KRBDCT 
BFFBIT 

RBXBIT*6A0BIT 

KRBOX 

$ 

RBx&!T#8ADB!T 

KRBSPN 

KEYINR 
KRBDS! 

KRBSPNi 
KRBSPNl 



152 



HOI 



17142! 

1* 

2692 
1# 
2# 
3# 

4# 

5* 
6* 

7* 

8* 
2693 
2694 
2695 
2696 
2697 
2698 
2699 

2 7 00 

2 7 Q1 
27°2 

27°3 

270^ 

2705 
2706 

27q7 

2 7 8 
2709 

2710 
2711 
2712 
2713 

2?l4 



SEP 08# 
01 



»7r 

00575 



01 00575 *ADoo544 

01 noS76 32^00002 * 

01 60 577 P2300000 A 

01 00^78 92500000 N 

01 00579 

01 00579 *A 10 057C 

01 0057A a8 0OO6D 

01 0057B a8 0006D 

Ol oo 57 c 

01 0057C 92700000 N 

01 OO57O ^0000037 A 

01 0057E S1780000 X 

Ol O057F A94oo583 

01 6o58q 4738 oqo X 

01 00581 *D000027 a 

01 00582 F8000001 A 

01 00583 

01 00583 47580000 X 

01 005«4 60000027 A 

01 O0 5 *5 ^^020001 A 
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PAGE 
KRBDISC EGU $ DISCONNECT GIVEN R8Tt 

###♦#######♦#*♦♦*###**###♦*♦»*#**••##*##*##**♦#*#**#♦*♦♦##*#####«■****** 
*F* NAM£l KRBDISC 
*F# 

•F# pyRpeSEJ T8 pR»c£ s S THE 'RrDTSc' KEvIN 
*F# 

*F# DESCRIPTION? DISCONNECTS A REMOTE PRQCESSING TERMINAL 
»#*#*»####♦#»#*•*#•*#####•*#•*#•»•#####•#*••*•***»•♦••*»•***###****** *** 
• 



KR80X 



# 
* 

KRBDS1 



KRBDS2 



BALj13 

LW#4 

LI#3 

L!*3 

EQU 

BALM 

B 

8 



EOU 
LU7 

DfSABlE 
CW#7 

BAN2 

STSj3 

ENABLE 

B 
EQU 

5TS*5 

ENABLE 

B 



kRbdCt 

2 


RBXBIT 

* 

KRBDSi 
KEY1NR 
KEYINR 



ACTB!T*LlPBIT 

RBlFLAG'* 

KRBD82 

RBSFLACm4 

♦ 1 

$ 

RBIFLAG#* 

1* R 1 



Zap terminals. 
i 

IF THE TE rm INAL IS CONNcCte^ St6*E ' 
HIS FLAGS CAUSING HIM TO RE HUNG UP 
I/O OPERATION* IF HE ISNT' CONNECTS! 
CONTENTS OR R 3 SELECTIVELY INTO HIS 

BRANCH T® BaL*1 iF NftT C£NNE c TF D ' B i 
CONNECTED^ 



not 



17 J 4 

4 * 


1— » 


SEP 08' 


»7r 




1 # 
27l7 

1* 

2* 
3* 




01 


00 5 r6 




5* 
6* 

7* 

8* 
9* 

27*8 
2719 


oi 


00586 


*20OOQ00 


A 


01 


00587 


P18Q0015 


A 


2720 


01 


00588 


#%830059l 




27gi 


01 


00589 


A A &00544 




2?22 


01 


Hq58A 


P2000000 


A 


2^23 


oi 


0058B 


??100000 
sUgOOOO 


N 


2724 


0058C 


X 


2725 


01 


00580 


A8400066 




2726 


01 


6o58E 


*ADoo559 




2727 


01 


6o58F 


^^000066 




2728 


01 


00 59 


* 8 00006 D 




2729 




01 


00591 




2730 
2731 


oi 


0059i 


*2100000 


N 


0059? 


*AB00560 




2732 


01 


00593 


A800006D 




2733 


01 


00594 


AADoo559 




2734 


01 


00595 


a8 0Oq566 




2735 


01 


00596 


*8qq 566 





154 

PAQE 

KRBS EQU • RESTART RBjS BY ALLSWfNG N^W C8NNeC 

•##♦♦###♦#♦*##»#*#**»##*♦♦***#***♦♦###*#««#♦#♦**#♦«♦♦»*###**#*#*******♦ 

*F* NA^gt KRQS 

♦F# 

*F# PURP9SE! T& PRSCESS THE fRBSt KEYIN 

*F* 

*F # DFSCRIPTI8NI ALLOWS C»NNECTI»N »F »NE 8R ALU REMOTE PR8CESSIN 

♦F# TERMINALS 

* 

LI#0 

C!#« X»15t 

BF KRBS1 

BAl*i3 KRBDCT 

L1#0 

L!*Ri 8FFB!T+& A DBIT 

CW # Rl RBIFUaQ# r ^ 

BA2 keyerr 

B ALil3 kRbDNC K 

B KEYERR 

B KEYINR 

EOU * 

L!#i 8FFBIT*»ADBIT 

BAL, 11 KRBSPN 

B KEYINr 

BAL-13 KRBHNICK 

B KRBSPNi 

B KRBSPNi 



KRBSl 



Woi 17142 S Ep 08* '7* i55 

1* PAG£ 

2740 01 00597 KRbSwIT EGlj * 

1* *##***##♦«*#*##*####*##*##*#♦*##*#«♦#*♦#**####*#♦♦##♦#♦♦♦###*#*#»###*** 

2# #F# NAMEl KRBSWTT 

3* *F* 

4* *F* PURPOSE? t© PRftCE^S THE 'RBSWitCH* KEYlN 

5* *F* 

6* *F# 0e8cRIPTI8N| SwITcHeS OUTpUT pILES pROM ONE W OR k STATTON 

7* # F* TO ANOTHfcRt 

g* ##♦#*##♦♦*#♦#*»»#####♦♦##»»•*♦#•»#*#♦♦#♦•##•#*#*♦##*«#*##♦#♦#*##**##*** 

9* *D* NAMfJ KRBSWIT 

10* *D* 

U* # D* CALL? KEYIN FO*MAT| RBSWTTCH WSN,DEVICE*TYPE*USER 

12* *D* 

13* *D* INPUT 2 R7 • ADR »F KeYjn PARAMETER ^IST 

1** *0# 

15* • »# SuTpUTJ R5/R6 * W» R KSTATISM NAmE 

16# #0* R12 . LENGTH OF WSN (BITS 16. 23), SWITQFC ( R1TS 24»3l 

<7* *D* Rl3 ■ CONVERTED SYSfD (HEX) 

18* # D* Ri<* f DE V I C E«T Y,!, E <LeFt*JUSTIFI£DJ E BC DlO 

19* *D# RlS/Rf) 9 W 0RK$TAT!ON NA h E 

20* *D* 

21* *D* RFQISTERS! ALL ANe VULNERABLE 

22* *D* 

23* # D* INTERFACE! GKlPLPj CVSY510, SGCQ2 

24* *D* 

2 5 * *D* environment: masteR/mappeo 

26* *D* 

27* *D# DEScRlpTlONj C ALl$ GKIFLD AND CVSySlD TO FORMAT THE REqISTERS 

28* *D* AS INDICATED ABOVEj THEN CALLS SGCQ2 WITH A GHOST 

2 9 * *D» FUNCTION C60E • SWItGFC tO p ASS THE DATA TO RBBAT, 

30* *#♦♦•♦*»♦*##*#****#•*«#***************##**«*******#**#***#***#********* 

31* * 

2741 01 60597 K.AB00050 BaL.U GKIPLD BUILD T*0 CQMBUFS AS FOLLOWS 

2742 01 00598 *9800066 BcS'S kEYErr I 

2743 01 00599 *25Eo005 A LW#5 KPLBj7 DATA WA(WSN) 
2?44 01 0059A 326E 006 A LW,6 KPLB*i*7 I 



W01 171 

2745 

2746 
2747 
2748 
2749 
8750 
2751 

2752 
2753 

2754 
2755 

2756 
2757 
2758 
2759 
2760 
2761 
2762 
2764 
2765 
2766 
2767 
2 768 

2769 
2770 
2771 
2772 
2773 
2774 
2775 
2776 
2777 
2778 
2779 



278f) 

278 1 
2782 



42 SEP 08# 

01 60599 

01 Q059C 

01 O059D 

01 OO^SE 

01 O059F 

01 6o5Ao 

01 005*1 

01 605A2 

01 005A3 

01 005 A 4 

01 005A5 

01 005A6 

01 005A7 

01 60SA8 

01 005A9 

01 005AA 

01 Q05 A ® 

01 005AC 
01 

01 605AD 

01 noSAE 

01 60SAF 

01 6o5 B g 

01 005B1 

01 O05B2 

01 005B3 

01 00 5B ^ 

01 00 5B5 

ol no 5B * 
01 

Ol 005B7 

01 6o5 B » 

01 005B9 

01 A05BA 

Ol 005BC 
01 



'7* 

32CEQ0Q4 
*ABo q5q 
^9800066 

^2EE000^ 
P1E00002 
^9200066 
32EEo005 
?5Eqo47q 

^ABoooSo 

A 9 8qo066 

aAB 00 qoo 
*2D00002 

5»2 F 00005 

52000006 

?5CoO00» 

30C0O000 N 

^a^oo^Do 

*8000000 X 
005AD 

6AB 0050 
a98ooo66 

322|0005 A 
323&000 6 A 
*AD0054C 
P180006B A 
*83oo5B7 

PS^OOOOO a 
»2 C 00000 A 
^8 000 5BD 
G05R7 

ft9200000 X 

6 A 8oo05o 

rt 8 200000 

324E0Q05 

325EoOO^ 
S«COOOOO 

005&D 



KRBL9Q 



KRBLSN 



KR8LVN 



LWj12 
BALiU 
BCSj 8 
LWJJ4 

BG 

LWji4 

SAS#l4 

BAtill 

Br Si 8 

BALMl 

LWj13 

LW#i5 

LWjo 

SLS*l2 

AIj12 

LI#4 

B 

EQU 

BAL-U 

BCS#8 

LW#g 

LW#3 

BAL,13 

CT<8 

Br 

L?*4 

t*M2 
B 

EQU 

PSW*2 

BALMl 

LWj* 

LlftiiS 
LW # 12 

EQU 



KFl,7 

6KIFLD 

KEYERR 

KFL,7 

2 

KEYERR 

KPLB*7 

• 16 

GKlFLD 

KEYERR 

CVSYSID 

2 
5 
6 
8 

SWlTGFC 

KSGCQ*l 

SGCQ2 

* 

GKIFLD 

KEYERR 

KPLB«7 
KPLB*!#7 

KRBOCK 

KRBLSN 



KRBLVM 

* 

TSTACK 
GKIFLO 
TSTACK 

KPUB17 

KPlB*i#7 

AtBlT 

$ 



GEN,S#24 
TEXT 



LlNKjQ 

WSN 
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M01 



17*42 SSP 08* 


f 7^ 




2783 


01 OOSBH 


32^00000 * 


LW#Ri3 


2784 


01 005BE 


3ODOOOOO x 


AWjRi3 


2785 


01 005B? 


P2100000 N 


U!#l 


2786 


01 oosco 


31140Q0Q X 


CW#1 


2787 


01 OOSCl 


* 9 ^000 6fe 


ban; 


2788 


01 005C2 


15440000 X 


STDj4 


278^ 


01 O05C3 
01 005*4 


47C40000 X 


STSjI 2 


279Q 


**00006D 


B 


2791 


01 


005r5 


KR0C6M Ef3U 


2792 


01 005C5 


*2C00000 n 


L!#12 


2793 


01 6o5C6 


6*000520 


B 


2794 






F!N 



ALBIT 
DCBIT 
ACTB!T*UPBIT 

RBJFIaQ#2 
KEYERR 

RB0IWSN#8 
RBIFlAG* 2 

kEyinr 

KC8MGFC 
KRBSC 
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END SAM KEYS C o0 UPDATES 



HOI 



17142 
2795 
2796 
2797 
2798 

2799 

2 8 00 

2801 
2802 
28Q3 
2804 
28Q5 

1* 
2* 
3* 

4* 
5* 

6 # 
7* 
8* 
9* 

10* 
11* 
12* 
13* 
14# 
15* 

16* 
17* 

*8* 

la* 

20* 
21* 

22* 
23* 

24» 
2806 
2807 



Sep 08# f 7$ 



01 



01 005 r 7 
005C7 *AB0005q 



PaGe 

###♦#»♦###♦##»#*#*#*»*##♦*♦♦#♦♦##*##♦##«#♦♦•*####*♦##«#*#♦*#»# 

•F# NAMfJ |<I9UTpUT 

*F# 

*F* PURPOSE I TO PROCESS THE tOUTPUT STOP#YYNDD! AND 

*F# OUTPUT Q 0#ID« KEYINS, 

*F» 

#F # 

*F* 

*F# FOR »OUT?UT GO'. 

###»•#♦###*####•#•###*####*#####*•*#♦*##*♦#####*##♦#♦*###•*##*# 

*D* NAME? KIOUTPUT 



153 



DrSCRlpTieNj SETS UP A QH8ST COMMUNICATION gUFFER FOR 

f OUTPUT STOP t, AND SETS THE Xt80» BIT OF UM.FLG2 



*o# 

*D# 

*D# 

*D* 
*D# 

*D# 
*D* 
*D* 
*D# 

*0# 
♦0* 

*o* 

*D# 
*D# 
*0* 
*0* 
*0# 
*D# 
•D» 
*D» 
*D# 



* * 



CALL I «E Y IN FORMAT? OUTPUT ISTOPjYYNDDI 

IQOjID 



• • 



»* 



INPUT' R? * ADR OF k£YlN Parameter list 

»UTpUTS UNIFLG2 hf GO) 

REGISTERS! ALL A«E VULNERABLE 

INTERFACE I GKIFL&, CVSYSJDj GETUSER## DEVCK, SYMTABCK, KSGCQ 

ENVIRONMENT I M ASTeR/ M App£D 

DFSCR 



KlOuTpuT 



kost»p u^o^t function CBD£ js ^asse^ to «»bat via 

KSGCQ, IF GO, TW* SYSIO IS OBTAINED BY GKjFLD, 
CONVERTED TO HEX BY CySYSlO* VERIFIEO BV GETUSER*, 
AND THE X 80 BIT OF UMfFLGg IS SET. 

####*##»######•#••#♦##*######•#•####*##»##*#####**#*#***»♦*** 

EQU * 
BALill GKIFLD 



HOI 
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2808 
28 9 

2*10 
28U 

2*12 
2813 

2*1* 
2*15 
2*16 
2817 

2*1* 
28i9 

2*20 

2*21 
2822 
2823 

2824 
2825 
2826 
2827 

2829 

2830 

2831 
2*32 

2833 
2834 
2835 
2836 

2?37 
2838 

2839 

2840 

2*41 
2842 

2843 

28*4 
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01 ft05C8 

01 005C9 

01 005CA 

01 005C8 

01 ooscc 

01 005C0 

oi oosce 

oi aosCF 

Ql 605°0 

01 OO5DI 

01 6o3g2 

01 005°3 

01 OOSO* 

01 005 D 5 

01 O0SD6 

01 005D7 

01 005D8 

01 O0509 

01 005DA 



01 
01 605[)B 

01 oosjjc 

01 6o5DD 
01 005DE 
01 005DF 

01 005 E 
01 005E1 

01 O05E2 
01 005E3 

01 005E4 
01 005E5 

01 00566 
01 OOSt? 
Oi 005E8 
01 005E9 



'75 

A9800066 
122E0005 

3120000* 
A83005DB 

3l20000 p 
*9g00066 
6 AB OOQ5o 
^9800066 
* AB 00000 
^98000 66 

a ?!oooo2 

6 a 7qoOOO 
#,8000066 
* D Q00037 
522AO000 
4920000* N 
552AQ000 x 
6D000027 a 
68Q0006D 



QOgnB 

AAB00Q5Q 
69800066 
322 E 0005 A 
323E0006 A 

6AB00OOO X 
a98qo066 
A AB00000 X 

*80005E<* 
68000066 

32CQ0003 A 
?5C 0010 A 

pgCooooo N 

^2000000 A 
»2E0O00O A 
6*0004DC 



K8UTSTBP 



gCSi 8 

CW#g 
RE 

BNE 
BAL^H 

BCSj8 

BAUil 

BCSjg 

BALj7 

B 
DISABIE 

LM#2 

0R*R2 

STH, 2 

ENABLE 

B 



EQU 
BA L jU 

BCS#8 

LW#3 

BaLjU 

BCSi8 

BALjll 

B 

3 

LWM2 
SLSji2 

AIM2 
L!*13 

LIil4 

B 



KEYERR 

KPLB,7 

TXTST9P 

KOUTSTOP 

TXTG8 

keyerr 

GKIFLD 

KEYERR 

CVSYSID 

KEYERR 

2 
QETUSER* 

KEYERR 

UNIFL«32*«5 

X80 

UHlFLGg#«5 

kEyinr 



gkIfld 

KEYgRR 

KPIBj? 

KPIB*1j7 

OEyCK 

KEYERR 

syhtabck 

KEYErr 
3 

16 

K6ST8P 




KSGCQ 
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6FT FUNCTION (STOP OR GO ) 



GET SYSID 

N§ GOOD 

CONVERT TO HgX IN Rg 

user id to R6 

return user number in R5 



GET USER FLGS 

SET COMODE FLAG F8R USER 



what ArE we halting COMOqE sn 

WHATEyE* IT WAS* IT WEPENtT NO GOOD 
GET YYNOO INTO R2-R3 

RFTURN DCTx IN R2 
DEVICE N» GOOD 

Get symtaBx in R3 
screwball return if ok 
n&t symb device 

align for sgcq 

gfc fbr toutput stop' 



G© SETUP RBBAT COMM, BUFFFR 



M01 17542 SEP 08* ' 7p 160 

l* Page 

2* 01 005FA K lFLUSM EQU * 

3# *♦#«#♦##*«♦«♦»****♦*###♦***********♦#♦*#**#♦#*****#*#****#****♦******** 

4* *F* NaMf* kiflusn 

5* *F* 

6* *P* PURPOSE? T» pRfiCESS TME »FtUSM! KEY** 

7* *F 

8* *F* OpSCRiPTiaNj SETS UP A GH8ST C8MMUNICATI8N BUFFER FftR fFLUSH 

9* *F* OUTPUTS 

10# *##***##*«♦#•**********#***********##♦****♦**************#**#********** 

11* *D* NAMFJ kI F L.USM 

12* *D* 

13* *0* CaLL8 KE^IN F8«HATl FLUSH YYNDD,SYSID 

14* *D* 

15* *&# INPUT? R7 - ADR SF KEYlN PARAMETER LIST 

16* *D* OCT*, SCNTXTi SYMXj SCSVDGI 

17* *D* 

U* *D* RfGlSTERSl ALL A«E VULNERABLE 



1=** *D* 

20* *0* INTERFAcEl GKIFLP' DEVCKi SymTABc** cvsysid 

21* *D* 

22* *D* ENVIRONMENT* MaSTER/MaPPeD 

23* *D* 

24* *D# DEScRlPTI8N? DEVC* IS C A LLED TB VALIDATE fyYNOD* FIELD .&F ^E 

25* *D* KEYINj SYHTABCK IS CALLED T© CdNVERT THE DCT INDeX 

2 6* *D# T» A SYMTAB INDgXi IF TM| SPECIFIED DgVlCE IS 

27* *D* CURRfNTl" Y RR|NTING/PUNCHiNG yHE SPECIFIED USSR'S 

28* *D* 6U T PUT# A GH6ST c»MMU NI CATI»N BUFFER (KfLU^M) IS 

29* *D* PASSED T» RBBAT VIA KSGCQt 

30# ###♦#*#*#♦###♦****♦•*##**************#**#***«*#**********»************* 

31* * 

32* 01 OOSEA 6AB00050 BAL'* 11 G«IfLD M»VE yyNDD T» KPL fltCO BUFF^ R 

33* 01 005EB A9S00066 BCS*8 KEYERR 

34* 01 QQSEC 322E0QQ5 A LW,R ? KPLB,R7 M8VE YYNDD T8 REGISTERS 

35* 01 OO5ED a23£D00 6 a LW,R3, KPLB*1jR7 

36* 0* 005EE ^ABOOOOO X B A L,R l * DeVCK V A LiDatE IT* RETURNS OC T X TN R2 

37* 01 OOSEp" ^9800066 Be S *« kEYErr 



hqi 17 Ua 

38* 

39* 

40* 
41* 

42* 

43* 

44* 
45* 
46* 

47* ° 

48* ° 

49* 

50* 

51* 

52* 

53# 

54* Q 

55* 

56* ° 

57* 

58* 

59* 

60* 
61* 
3016 










SEP 08* t?R 

003*0 aABqqOOO X 

605FI *80005F3 

O05F2 A*000066 

005F3 7 2C40000 

005F4 ?5c0000« 

O03F5 «530000C 

QQ 5 [ 6 ?0 £839°2 

OO5F7 ^ABOOOgO 

00 5Fg a98 000 66 

OO5F9 ^abooooo 

OOSFA A9800066 

003 pB 32DQ0002 

005FC *£30000C 

OOSFo 72160000 

6o5FE ?llOO002 

0Q5PF A8400Q66 

00^00 R 21$0000 

H0 6 0l 6»3000 66 

00602 *$l0000l 

00603 P2300010 

00604 45220000 
60605 6^300066 
00606 A80004DC 

01 0001 A 

6o6q 7 riD3D34 

no60« ol rF A 00 

6o6Q9 T3C3C840 

6060A 07E4C2D3 

606OB H3D6C3D2 



KlFl 



A 
N 
X 



BALjRII 

B 

B 

J 

LB,Rl2 

S|_S*R12 

STH,R3 

AT#Ri2 

BCS*8 
BaL.RH 

Bc^*8 
LW#Rl3 

LM # R3 

LBiRl 

C!#R1 

BAZ 

LM,R1 

BeZ 

SLSjRl 

Ll#R3 

CS#R2 

BNE 

B 

END 



SYHTABCK 

KlFl 

KEYERR 

DCT4jR2 

8 

R12 

KFLUSM 

QKJFLO 

KgYgRR 

CVSYSfO 

KEYERR 
R2 

Rl2 

SYMX#r3 

2 

KEYERR 

SCNt*Tj*3 

KEYERR 

1 

MAS|<S + i6 

SCS V D6I#«1 

KEYERR 

KSQCQ 
8TART$KEYIN 



gft symtab index in r3 
normal return 
error return 

Get dev,?ype 



SET UP Rj2 FOR SGCOM 

MOVf SYSlD T© KPU FlfCD BUFFER 

C»NVgRT IT T9 *£* IN R2 

SYSID IN HEx TO Rl3 FOR SGCOM 
GET SYMX AGAIN 

IS IT tOUTPUT* 

NO 

18 TNfRE A CONTENT 8L0CK 

NO 

CONVERT TO WA 

DOES SYSID MATCH 

NO 

PASS CPMsBuF TO RBBAT 
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CONTROL SECTION SUMMARY ; 1 OO60C PT 



02 00032 PT 



03 00032 PT 



HOI l7|42 SEP 08* »7r 

* SYMBOL VALUES 

A3CERR/00O0000h 
AMSprSc/OOOOOOoI 
AVR/oi 00333 
A^RS/Ol 0032C 
BAuNITl/01 Q00n7 
BLKSZ/00000003 

CHKILBL/01 003*1 
CHKlO/Ot 00280 
CH|<0/dl 002FC 
CKF5/01 003^0 
CKSERIAL/Ol 0OP9S 
CKZER83/01 00453 
DCtX/61 0O2C0 
DEvIcED8w N /01 n03AE 
DTVALCK/Ot Q02h A 

D * / Q0O00O0 F 
F/00000001 
QOTKIVA^/Ol 001 EE 
G0TKIV4/01 00209 
3J 9 Bfc^0000001S 
QJ6BUSY/01 000F9 
GK1FLD3/01 000S° 
IDLE/60000001 
IBpS3/0l 002B8 
KBUF/60000003 

K(: 1 / 000000 C 1 
KEYERR1/01 000*8 
KFFFF/OOOOFFFF 
KIABBRT/Ol 00077 
KIDATE/qi Q01 D< * 
K[eRR©R1/0X OO07C 

KlFD&wN/Oi ooinA 

KIQBUP/01 00121 
KIQJOB2/0I 000 n 2 
KIGJSB6/01 OOOFC 
KIHEAD/Ql 0016A 
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AMNJSCR/Ot 002B9 
ANSREEt^/Ol 0025C 
AVRBZERR/01 00390 
AVR1/01 0033d 
BAUNTT2/01 00008 
BL^/01 00006 
CHKBLP/ftl 00P7A 
CH<1D1/01 0028 A 
CHkI/01 0030A 
CKF6/01 003F? 
CKZER9/01 0042C 
C8NTUGSRCH/01 OOQAD 
0CV2O/O1 0012C 
DlScBPRe c /00000000 
Dl/OOOOOOOC 
EAPR©G/ 01 003 AS 
FKIC/Ol 004DF 
GO*KTVl/Ol OOiFD 
GETAVR/01 00g3B 
QJ^BpgUL'Ol 0010$ 
Gj9BWAKE/0l 00100 
GKIFLD4/Q1 000^^ 
JSPS/Ol 002C1 
ISPS5/01 002AE 
KCCP/00000001 
KDIAG/Q1 00145 
K^YINA/Ol 00020 
KFLA G S/00000002 
KlANSM/01 00212 
KI0ELT/ 01 Q00 B 8 
Ki£Rl2/01 50O«7 
KlFLySH/Ol 005EA 
K!GOaWN /0 l 00117 

KIGJ©B3/ 1 000 0D 
KIGJ9B7/01 000F7 

K I w i^Ol 00l7o 



amsasn/oooooooa 

AfSjSv©t /00000003 
AVRiSERR/01 00385 
BACONCAT/0000003g 
BlTS/OOOOOOOO 
CCEWR/01 003AA 
CHKGACN/ol q o0 « 
CMKSR/01 00244 
CkF«EE/01 003E9 
CKF7/Q1 003F* 
CKZ^ROl/Ol 00421 
D/00000002 
DCV3Q/01 00134 
DlTPSD/01 OOOBc 
02/00000000 
ENTINT/ 01 000 73 

FMT'00000005 
GD TK!V2/0t 00203 
GETAyRl/Ol 0023D 
Qj8e T XT/02 OOOOF 
GJ88WC/00000013 
GKIFLD5/Q1 000*0 
I3P30/01 002CD 
KA/OOOOOOOA 
KC8MMA/TEXT 
KDIAQx/qi 00148 

ke^jnq/01 ooooa 
kfo/oooooofo 

KlANS©/01 00214 
KIDI/qj Q0Q18 
K1ER13/01 000g 9 
KlF^/01 005F3 
KlG^eB/01 oooBe 

KlG^eB^/ol 000*2 
KIGUP/01 00123 
KlHg/Qj 001 76 



ANsFNMAX/OOOOnOll 
AScv^Ll/Ol 003B4 
AVRLBERR/Ol 0038A 
BAKPLB/00000014 

blkc nt /ooooogu 

CHK/01 002F7 

CHKGNAME/ol oooab 
CNK$Rl/Ol 00249 
CkFIO/01 00408 
CKF8/01 003FB 
CKZER02/01 0042A 
0CBPR6C/00000000 
DeFaULTSaCN/01 OOOA9 
09SRCH/01 00373 
D3/0000000E 
ERSEND/ 01 00501 
FSN/00000010 
G D TKlV3/01 00208 
GETFLGt/01 00381 
GJ8BUC^0000001B 
GK!FlDt/01 00036 
QNAME/Ql oOO 98 
ISPS2/01 002B1 
KBl aN K/TExT 

KCRET/00000015 
<E&B/00006026 
KEVIN20/01 00027 
KF9/000000F9 

KIANSS/Ql 00210 
K!ERR»R/ 01 ft 00 7A 
KlrRl5/01 OOOflF 
KlQB/01 00127 
KIGJ6B1/01 OOOCl 

KlGJOBS/ot 000 EA 
KIQ1/01 00143 
KIM9UNT/ 01 0091 6 
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KIM8UNTZ/01 OOPlC 

*i^'6i 00010^ 

KJRCN2/01 00*2o 
KlREQBL.K'01 00418 
KIREQNDD/ol 003DA 
KlREQTg/O! 004,1 
KlRGuEVOl 003F7 
KISTSY/Oi 00*E7 
KISTVi/ i 001^4 
KMAXKlFt/OOOOOnOC 
K^IO/FFFFFFFO 
K8BF/0I 0006E 
KRBC9M/ i QO^Cf? 
KRBDlSC/01 00575 
KRBDX/ol 00579 
KRB*V/Ol 00525 
KRBHV*/Ol 0053a 
KRBSPN/Ol 0056n 
KRBS^Qi o0 59i 
KSCPU/Ol OOiq* 
KX C P U 2/01 001B1 
K2/00O000O2 
L6CK/ 61 oo2 DA 

MAXMINVAL/Ol O0IE6 
M^TScR/Ot 0026s 
MSMDAT/01 00107 
M7/00OO00O7 S 
NK1DL/OOOOOQO7 
NeTANS/00000001 
N8TV811/01 003B9 
N> K !CMR2/0l 000*8 
NXKICMR4/01 00o3D 
PeSTAPEl/Ol 00*96 
RDILBI/Ol 0036q 
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R0/00OO0000 



KlM V MOR/ol 0016E 
KlRAD 1 ST/ i Q0465 
K?RfO/01 003B9 
XIREqdCB/01 00412 
KIREQND6/01 003E1 
KlREQ lll /Oi OO4OA 
KI$CRTH/01 00218 
KI$TSY0/01 00*£B 
KISTV2/ 1 00166 
KMCSEND/01 OOI7C 
KNU/FFFFFFE8 
<»BN/Ol 00070 
KRBDCK/01 oos* c 
KRBDK'CK/01 00559 
KRBL8Q/01 005A0 
KRBMVO/Ol 00526 
KRBS/Ol 00586 
KRBSRNl/Ol 00566 
KRBWSN/ 01 00551 
KsCPyl/01 OOI99 
KXcPy3/01 001B3 
K5/00000005 
LRCSZ/Q0000012 
MAXM8NVAL/01 001E8 
M8Np R B c /oO0OOOO0 
Ml6 /0 00000l0 S 
M8/00000008 S 
N8BRaNCH/01 00009 
N8Tb L P/01 002*F 
N8UNTSW/01 00234 
NxkICHR3/01 ooo*a 
NXKICHR5/01 0003^ 
PREM9UNT/01 OOSg^ 
REApTApE/Ol 00397 
REQTY/01 003CF 
R ^ ST 10^01 0026B 
Rl/OOOOOOOl 



KIN8WDR/Q1 00179 
KlRCNJ/ ol 0043F 
KIREOBF/Ol 0041 9 
kIRI0DD/01 0040b 

KlRiQSy/Ol 00*10 
KIREQ8/O1 OO41C 
KlSCND/Ol 00151 
KlSTSYl/Ol 0Q*FE 
KlSi/ 01 0015C 
KHCSgNDl/Ol 001g4 
KN6/FFFFFFFA 
K8UTST8P/01 0050B 
KRBQCT/01 005*4 
KRBOSl/01 0057C 
KRBUSN/01 005B7 

KRBHVl/01 00580 
KRBSr/01 005*0 
KRB8pN2 / 0l 00562 
KRBX/ Q1 00 567 

KSCPU2/01 001 AO 
KO/OOOOOOQO 

K8/00000008 
MAXOaWAU/qI 001^ A 
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MPBiT9/00000001 
M2/00000002 S 
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N8CC/01 0034^ 
M8TEXPR/00000002 
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NXKICHR31/01 000*C 
BCPCK/oi 00*E0 
PUBlK/01 002 9 | 
rEAVR/01 00344 
REQtYl/Ol 003D1 
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RlO/OOOOOOOA 
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KI6UTPUT/01 005C7 
KIRCN|/ 01 00*49 
KJRfQBK/01 00419 
KiREQFlL/fll 00436 
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KIRQUE/O! 003i:5 
KlSTA R T/01 000B5 
KISTSY2/01 00*F8 

KITIME/oi OOlCi 
KMCSEND2/01 001g9 
KN8/FFFFFFFS 
KRBBCST/01 00512 
KRBOCTi/oi' 0054t 
KRB0S2/01 00583 
KRBLVN/01 005BD 
KRBMV2/01 00539 

krbsend/oi 0051a 

KRBSWIT/01 00597 
KRBXl/Ql Q056F 
KXCPU/01 OOlAA 
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L8C/01 0001A 
MAXHRVAL/ i Q01** 
MCFC/01 003B3 
mSqT/01 00380 
M24y000000l8 S 
NKEYINS/Q0000031 
N8IDPUB/01 002D3 
^STyNlQgE/Ol 00330 
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SEplO/Ol O029p 
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E;ERR 
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NlEWQ 
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AVRNBU 

BLANK 

DATE 

DECSNv 

ERRLBG 

JJBaSE 

KIOEL 

MAXG 

NSCPU 

RATIOCt 4 



R13/O000OOOD 
^3^00000003 
R7/OOOOOOO7 
SEP20/01 002A5 
SKFCK/01 00499 
SKFRM/Ql 00<*B7 
SKF1/01 004CF 
SKIN3/01 00483 
SR2/00000009 

SXP/FU N C 
TXTST6P/01 OOOOE 

UFIAGS/OOOOOOOO 
V£RB/0000001C S 
X/0000003P 
XFFOAOO/Ol 003B7 
XgO/OOOOOOOg S 
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Y1/0000001D S 

ZAPlO'Ql OOIOE 
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AVRtBI 

BT31TOO 

DCTslZ 
DEyCK 

FCMC 
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KIDIS 

MBSSP* 
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R4/Q0000004 

Rg/OOOOOOOg 

SETNEw/01 0031F 
SKFF/01 Q04C9 
SKFRMi/ 01 004BA 
SKfN/01 0046B 
SNFN/OOOOOOOO 
SRS'oOOOOOQA 

sta«tBit/oooooooi 

S69PR&C/00000001 
TYPERR/01 00P7* 

USEW/QOOOOOO? 
VEPSI9N/000000»B 
XCF/Ol 00004 
XF7/01 00005 
X88 / 0l 003Bg 
YOl/00000019 S 

Y2/0000001E S 
7AP2o/01 00116 
ILBU/01 003B6 

KEYiNR/01 0006D 
KITBL/ a OOOOO 
TXM&BSE/Ol OOOOC 
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AVRtBLNE 

C$CPU 

DC^i 

DID 

getusep* 

JiJlT 
KIPR! 

MING 
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RBLf^s 
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AVRTBLStZ 

CjMgM 

DCT16 

D9UBLEfERB 

QMB 

KgYlNBUF 

KBSTQP 

MXSTRM 

PL&lMfN 

RMB 
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R9/OOOOOOO9 
SKEylN/01 004R9 
SKFJ/01 004BD 
SKFRMg/ 01 Q04&4 
SK!Ni/01 004gB 
SRCHAvR/01 OOPEA 
SR4/00000005 
ST6PBIT/00000OOP 
TplG^BN/01 00168 
Tl/Ol 001CB 

UTsPPec/00000001 

VSLt/01 003B5 
XF/00000004 S 

X30/01 00002 
Y/00000000 

Y04/0000001B s 
Y4/0000001F S 
lAi/01 0045F 



KEYN/01 OOOOO 
KPtB/ 0000005 
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AVRFUGS 

batape 
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DCT24 

ejabrt 

GBBDNGT 

KFUUSH 

LPART 

N8 3 iT©o 
^LMlSlD 
PSfPlAt 
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CT^IG 

DCT3 

EJCBK 

WEXCK 

KFRMCG 
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S»GUAIS 


SIMBSF 
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S3IGJ9BU 


scntxt 


SCSVDGf 


SQCO 


$GC0 3 


SWIR3CU 


SWIRGCU 


SHlReCU 


SH?Rt8t 


g|XP A CK 
STBJTVP 


S^Ujs 


s^oox 


gNDGFC 


setrciT 


SSTAT 


9VIRSIZ 


SWIT3FC 


SYHC9M 


SYMX 


sysacct 


systrt 


TjBTSCMED 


TjOElUS 


TJGJ8BR 


T8RUE 


tBiflgs 


TBJFLGSi 


TIME 
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TSTACK 


UBIUS 


UH*FL g 2 


UXJJlT 
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XO 
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YOOOA 
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Y3 
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S 
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